Bl 

C7TKEA TK<?5 FRT END FUNC 01 MACRO 111200 20 -APR -84 08:12 PAGE 2 SEQ 1 

USER DOCUMENTATION w x 

,REM\ 



IDENTIFICATION 

PROOUCT 10: AC-T775A-MC 

PROOUCT TITLE: CZTKEA TK25 FRT END FUNC 01 

PROOUCT DATE: MARCH. 1984 

DEPARTMENT: TAPE DIAGNOSTIC ENGINEERING 

AUTHOR: DICE SYSTEMS „ INC. 



COPYRIGHT (C) 1^84 BY 
DIGITAL EQUIPMENT CORPORATION. 
MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED ANO COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE YO ANY OTHER 
PERSON. iO TITLE TO ANO OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED . 

THE INFORMATION IN THIS SOFTWAPE JS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOU.D NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSLftS NO RFSP0N5IBILITV FOR THE USE OR RELIABILITY QF ITS 
SOFTWARE ON EQUIPMENT THAT "IS NOT SUPPLIED BY DIGITAL, 
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ABSTRACT 

WO ABSTRACT 

THIS IS A POP-11/LSI RESIPENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF AN TK25 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM CO -BUS 
OR UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO TOUR MAJOR PIECES.- CZTKE, 
CZTKF, CZTKG. CZTKH. SUCCESSFUL RUN EXAMPLES, AND TEST DESCRIPTIONS 
HAVE BEEN PROVIDED FOR EACH PROGRAM. 

THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS. 
ANO AID IN DEVICE REPAIR, REFERENCE THE FOLLOWING DIGITAL EQUIPMENT 
DOCUMENTS: 

1. CIQPMAO XXDP* PROGRAMMER'S MANUAL, DOCUMENT NUMBER 
AC-S296A-ACi DATE: 14 ^Y 1930* 

X.l REVISION HISTORY 

NEW RELEASE APRIL 1934 
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2.0 REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 

PDP-11 FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 
TK25 MAGTAPE SUBSYSTEM CDR1VE AND CONTROLLER) 
CAUTIONzDIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
C;.'8K USEABLE I.E. 4K FOR I/O PAGE) 

2.1.1 OPTIONAL HARDUARE - 

FOUR TK25 CONTROLLERS PER PDP-11, ONE 
DRIVE PER CONTROLLER 

2.2 SOFTWARE REQUIREMENTS 

PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXOPO 

2.3 PREREQUISITES 

FL»4CTIONAL PDP-ll/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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3,0 OPERATING INSTRUCTIONS - OPERATOR COMMANDS 



3,1 OPERATOR COMMANDS 

THE TK25 DIAGNOSTICS ARE PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAMS. ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN 
THE PDP-11 PROGRAMMER'S MANUAL "CIQPMAO XXDP" PROGRAMMER'S MANUAL NUMBER 
AC-S296A-AC. 

BOOT THE DIAGNOSTIC XXDP* MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 

CHMOLEO XXDP* DL MONITOR 
BOOTED VIA 'JNIT 
28K NON-UNIBUS SYSTEM 

ENTER DATE <DD-MMM-YY>: 29-JAN-82 



RESTART ADDRESS: 152010 

THIS IS XXDP* TYPE "H" OR "H/L" FOR HELP, 

.R CZTKEA 



CZTKEA.BIC 

DRS-EO 

CZTKE-A-0 

CZTKEA TK-25 FRT ENO FUNC *1 UNIT IS TK25 

RSTRT ADR 147642 

DR>START/FLAG:PNT;HOE 



THE ABOVE; COMMAND WILL START THE DIAGNOSTIC, THE COMMANO HAS TWO 
SWITCHES ON WHICH ARE, "PRINT EACH TEST N6R, AS EXECUTED" AND "HALT ON 
ERROR* 1 * 
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5.2 HARDWARE PARAMETERS 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGF.AM LULL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A "N" (NO) RESPONCE TO THE QUESTION. THE PROGRAM WILL USE IT'S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSDB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 

ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
VALUE, IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INOICA , ES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)" THAT A LOGICAL RESPONSE IS TO BE MADE: "Y" FOR 
YES. "N* FOR NO. 

UNITS (D) ? < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 

DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER* 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUM8ER OF 
UNITS (CO ITROLLERS) SPECIFIED IN THE '* UNITS ?" QUESTION, LOGICAL UNIT 
NL^BERS AWE ASSIGNED IN QRQ&R BEGINNING AT 0* UP TO &IGH1 UNITS CAN BE, 
SELECTED FOR TESTING. 
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3.3 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE, 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? < TYPE "Y" TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED, > 

INHIBIT ITERATIONS (L) N ? < TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES ^ACH TEST PASS TO 
RUtsi AS QUICKLY AS POSSIBLE, 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS,* 

ENABLE RAM DUMP ON ERROR CD N? < TYPE "Y" TO DUMP 

SELECTED R.;M CONTENTS IN THE 
CONTROLLER MQDULb . > 
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4,0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 
4.1 SUCCESSUL RUN EXAMPLES 

4,1.1 SUCCESSFUL RUN EXAMPLE - CZTKE - 

TST: 001 INITIALIZATION TEST 

TST: 002 RAM TEST 

TST: 003 COMMAND REJECT TEST 

TST; 004 WRITE CHARACTERISTICS TEST 

TST: 005 VOLUME CHECK TEST 

TST: 006 COMPLETION INTERRUPT TEST 

TST: 007 BASIC PACKET PROTOCAL TEST 

TST: 006 NON-TAPE MOTION COMMANDS TEST 

TST: 009 DMA MEMORY ADDRESSING TEST 

TST: 010 INITIALIZATION AFTER WRITE CHARACTERISTICS TEST 

TST: Oil BASIC WRITE SUBSYSTEM MEMORY TEST 

CZTKE EOP I 

TOTAL ERRS 

NOTE: PRQGRAK NOW STARTS OVER AGAIN AT TiST I 
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4.2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGE 

ERROR MESSAGE EXAMPLE 

1ST: 001 

CZTKE OVC FTL ERR 00001 ON UNIT 00 TST 001 SUB 000 PC; 017300 

NON-EXISTANT DEVICE REGISTER 

ADDRESS: 172500 

UNIT DROPPED 
PASS ABRTD THS UNIT 
CZTKE EOP 1 
1 TOTAL ERRS 
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5.0 PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES 
ARE TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP~ll/23 (LSI) 
PROCESSOR WITH A LA- IPO CONSOLE. 

THE PROGRAMS RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 
ITERATIONS, THEREFOR, THE DEFAULT MODE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 

5.1 RUN TIMES - CZTKE 



TEST 


N/I 


DEF 


NUMBER 


SECS. 


SECS. 


1 


c 


8 


2 


11 


11 


3 


9 


9 


4 


10 


10 


5 


12 


12 


6 


10 


10 


7 


2 


2 


8 


8 


8 


9 


5 


5 


10 


8 


8 


11 


13 


13 


MES REQUIRED TO RUN TESTS 1 


Q.V. 


1 


MIN 46 SECONDS 


DEFAULT 


1 


MXN 46 SECONDS 
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6.0 TEST DESCRIPTIONS - CZTKE 

6.1 TEST 1 - INITIALIZATION TEST 1 

♦ NOTE: IF THIS TEST DETECTS AN ERRO:: -:°LACc THE TK25'S * 

* CONTROLLER * 

***************************************************************** 

T HIS TEST VERIf tES THAT THE MOOULl » S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST 1) AND THEN CHECKS THAT THE BUILT-IN 
INITIALIZATION SELF -TEST MICROUIAJNOSTIC DID NOT FIND ANY BASIC PROBLEMS 
UITH THE MOOULE, AREAS OF i/JGlL TESTED BY THE SELF -TEST SEQUENCER ARE 
AS FOLLOWS: ROM AND PIPELINE REGISTER. SEQUENCER, INTERNAL BUSES, 2901 
MICROPROCESSOR, RAM AND TRANSPORT STATUS FLOPS. THIS TEST INITIALIZES 
THE CONTROLLER BY ISSUING THE 3US INIT SIGNAL VIA A RESET IN ,TRUCTION, 
OR BY WRITING INTO THE TSSR REGISTER, AND THEN CHECKS THE CONTENTS OF 
THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS INOICATED BY SUBSYSTEM 
READY CSSR) ANO NEED BUFFER ADDRESS CNBA) BITS BEING SET CD AND ALL 
OTHER BITS (EXCEPT A17, A16, AND OFL , WHICH ARE IGNORED FOR THIS TEST) 
BEING CLEARED (0). IF THE CONTENTS OF THE TSSR ARE NOT AS EXPECTED, AN 
LRROP REPORT IS XSOUED LISTING THE EXP&CTED DATA, ACTUAL DATA, AND THE 
DISCREPANCIES, 
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6.2 TEST 2 - RAM TEST 

************* ++**++**^ *;.*** + ********************************.*,*****.* 

* NOTE: IF THIS TEST DcTECTS AN ERROR REPLACE THE TK25'S * 

* CONTROLLER * 

4 **************************************** ************ ************* * 

THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE CONTROLLER CAN 
PROPERLY STORE AND READ BACK ALL DATA PATTERNS, AND THAT EACH RAM 
LOCATION IS UNIQUELY ADDRESSED CIE: THAT ONE AND ONLY ONE LOCATION IS 
ACCESSED BY ANY PARTICULAR ADDRESS), THESE TESTS ARE PERFORMED BY THREE 
SUBTESTS DESCRIBED BEI.OW, 



6.2.1 TEST 2, SUBTEST 1: - 

THIS SUBTEST VERIFIES EACH LOCATION BY PERFORMING THE FOLLOWING SEQUENCE 
FOR EACH ADDRESS 0-377 (OCTAL): 

1. THE ADDRESS TO BE TESTED IS LOADED INTO THE TSDB*1 (VIA A 
HI-WRITE BYTE), 

2. THE ADDRESSED RAM LOCATION IS READ, THEN WRITTEN INTO THE LOW 
BYTE OF THE TSBA. 

3. THE LOW BYTE OF THE TSBA IS CHECKED TO SEE IF IT CONTAINS THE 
DATA PATTERN ORIGINALLY WRITTENj A DISCREPANCY IS REPORTED AS 
AN ERROR, 

4. THE ADDRESS OF THE LOCATION BEING TESTED IS AGAIN WRITTEN INTO 
TSDB»1 (HI -BYTE WRITE), TO CAUSE THE LOCATION IMOER TEST TO 
AGAIN BE READ INTO THE LOW BYTE OF TSBA. THE LOW BYTE OF TSBA 
IS AGAIN CHECKED AND DISCREPANCIES REPORTED, 



6.?. 2 TEST 2, SUBTEST 2: - 

THIS SUBTEST USES THE SAME RAM READ/WHITE TECHNIQUES AS SUBTEST 1, 
EXCEPT THAT MEMORY IS FILLED WITH ZEROS AND A ONES WORD IS "WALKED'- DOWN 
THROUGH. PRIOR TO THE ALL ONES WRITE TO MEMORY THE MEMORY IS CHECKED TO 
BE SURE THAT THE ZERO WORD HASN'T "PICKED" A BIT, 



6.2.3 TEST 2, SUBTEST 3* - 

THIS SUBTEST IS SIMILAR TO SUBTEST 2, EXCEPT THAT MEMORY IS FIRST SET TQ 
ALL ONES AND A BYTE OF ZEROS IS "WALKED" DOWN THROUGH MEMORY BEGINNING 
AT LOCATION TQP-2, 



N4 
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1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1673 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
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.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



SEQ 52 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES, 



INPUTS! 



Rl 
R2 



OUTPUT t 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



i - 



1691 
1692 
1693 
1694 
1695 
1696 



007164 
007164 
0071^0 
007172 
007202 
007206 
007210 
007212 
007214 
007214 
007216 
007^20 
007222 
00 7226 
00 7232 
007234 
007236 
007242 
007244 

007246 



010203 

012700 177400 
040001 
040002 
040003 

010346 

010146 

010246 

012746 007246 

012746 000004 

010600 

104414 

062706 000012 

010300 

000207 



PRIBXOR: : 






SAVREG 




{SAVE THE REGISTERS 


MOV 


R2.R3 


{EXPECTED DATA 


XOR 


R1.R3 


{FORM THE EXCLUSIVE 


MOV 


#*C<377>, 


RO {BYTE MASK 


BIC 


R0.R1 


{SAVE LOU BYTE RECV 


BIC 


R0 f R2 


{SAVE LOW BYTE EXPD 


BIC 


R0.R3 


jSAVE LOW BYTE XOR 


PRINTS 


*XORBFOR, 


R2,R1,R3 {PRINT THE MESSAGE 


MOV 


R3.-CSP) 




MOV 


Rl.-CSP) 




MOV 


R2.-CSP) 




MOV 


OX0R8F0R , 


-CSP) 


MOV 


*4,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADD 


*12,SP 




MOV 


R3.R0 


jRO HAS XOR ON RETURN 


RTS 


PC 


{RETURN TO CALLER 



045 



116 



045 XORBFOR: 



.EVEN 



.ASCIZ '*N*A EXPD: *03*A RECV: *03*A XOR: *03' 



MHHM 
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6.4 TEST 4 - WRITE CHARACTERISTICS 



♦ NOTE: IF THIS TEST DETECTS A FAILURE REPLACE THE TK25'S • 

♦ CONTROLLER ♦ 

THIS TEST VERIFIES BASIC OPERATION OF THE WRITE CHARACTERISTICS COMMAND. 
IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS DATA BLOCK ARE 
FETCHED PROPERLY FROM CPU MEMORY. THE NEED BUFFER ADDRESS (NBA) filT IN 
THE TSSR IS HANDLED PROPERLY. AND THAT A PROPER MESSAGE PACKET IS 
STORED, WHERE APPROPRIATE. THIS TEST DOES NOT CHECK THAT THE VARIOUS 
FUNCTIONS ENABLED BY CHARACTERISTICS MOOE DATA BITS OPERATE PROPERLY | 
THE FUNCTIONING OF THESE BITS IS VERIFIED IN SUBSEQUENT TESTS ALL 
COMMANDS EXECUTED IN THIS TEST HAVE THE INTERRUPT ENABLE (IE'/ BIT 
CLEARED TO ZERO. SO NO INTERRUPTS SHOULO BE GENERATEO. HOWEVER, THE 
PROGRAM RUNS AT PROCEESOR PRIORITY ZERO. WITH THE INTERRUPT SERVICE 
ROUTINE SET UP TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS A 
PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN THE ROM 
OR PIPELINE. 

THIS TESTS VARIOUS MICROPROGRAM SEQUENCES. COMMAND DECODING. DMA LOGIC. 
AND BASIC PACKET PROTOCAL HANDLING. THIS IS THE FtasT TEST IN WHICH 
DATA DMA CYCLES (FOR STORING THE MESSAGE PACKET) *RE PERFORMED. ANY 
ERRORS IN THE BOOY OF THE TEST (IE: ERRORS OTKcR THAN INITIALIZATION 
ERRORS RELATED TO THE TRANSPORT BUS) DEFINITELY INDICATES A BAD CONTROLLER 
MODULE. 



6.4,1 TEST 4, SUBTEST 1: - 

VERIFIES BASIC STmNOARD OPERATION (USING PROPER MESSAGE BUFFER ANO 
LENGTH DATA IN AN INCREMENTING SERIES OF VALUES FOR THE FOURTH 
CHARACTERISTICS DATA IN THE CHARACTERISTICS DATA BLOCK.), AFTER THE 
COMMAND IS EXECUTED FOR EACH VALUE OF THE FOURTH CHARACTERISTICS DATA 
WORD, THE PROGRAM VERIFIES THAT: 

1. THE TSSR IS CORRECT. INCLUDING A CHECK THAT THE NBA BIT IS 
CLEARED ANO THAT NORMAL TERMINATION UPS ACCOMPLISHED. 

2. THAT A PROPER MESSAGE PACKET IS STORED. 

3* THAT THE COMMAND PACKET CHRACTERISUC DATA, AND MESSAGE PACKET 
IMAGE BLOCKS IN CONTROLLER RAM ARE CORRECT, 



c 



2 
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6.4.2 TEST 4, SUBTEST 2; - 

VERIFIES THAT THE COMMAND IS REJECTED ANO THAT THE NBA BIT DOES NOT GET 
CLEARED IF NONZERO BITS ARE SET INTO ANY RESERVED OR UNUSED FIELD WITHIN 
THE FIRST THREE COMMAND PACKET WORDS, 

6.4.3 TEST 4, SUBTEST 3: - 

VERIFIES THAT THE COMMAND IS REJECTED ANO THAT THE NBA BIT DOES NOT GET 
CLEARED IF THE MESSAGE BUFFER ADDRESS SPECIFIED IN THE CHARACTERISTICS 
DATA BLOCK DOES NOT SPECIFY A LEGAL ADDRESS* 
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6,5 TEST 5t VOLUME CHECK 

♦ NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 

* CONTROLLER * 

♦A*************************************************************** 

THIS TEST VERIFIES THAT THE VOLUME CHECK (VCK) BIT, A FLAG HELD WITHIN 
THE CONTROLLER AND APPEARING IN XSTO. IS SET BY INITAILIZE AND CLEARED BY 
EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE CVC SET. IT IS ALSO 
VERIFIED THAT A WRITE CHARACTERISTICS WITH THE CVC BIT CLEAR DOES NOT 
AFFECT THE STATE OF THE VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUME 
CHECK. THAT OF PREVENTING OR ALLOWING A TAPE MOTIN COMMAND DEPENDING ON 
WHETHER VOLLHE CHECK IS SET OR CLEAR . IS NOT CHECKED BY THIS TESTi 
THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF TAPE MOTION 
COMMANDS. 

THE TEST PROCEEDS AS FOLLOWS: 

1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 

2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC-O) 

3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK ODES NOT 
CHANGE (REMAINS AT 0). 

A. A WRITE CHARACTERISTICS COMMAS© IS ISUED WITH CVC-1 AND THE VCK 
BIT IN XSTO IN THE MESSAGE BUFFER IS EXAMINED* THE VCK BIT 
SHOULD BE CLEAR (0). 

5. A WRITE CHARACTERISTICS COMMAND IS ISUED WITH CVC-0 ANO THE VCK 
BIT IN XSTO IN THE MESSAGE BUFFER IS EXAMINEDi THE VCK BIT 
SHOULD REMAIN CLEAR (0). THIS SHOULD CAUSE RAM LOCATION TO 
BE WRITTEN TO ALL 1»S SINCE 2901 REGISTERS 10 AND 11. 
SPECIFYING THE RAM ADDRESS. SHOULD BE 0. RAM LOCATION IS 
VERIFIED BY LOW BYTE OF TSBA WHICH SHOULD CONTAIN ALL IS. 

6. THE ENTIRE RAM IS SCANNED. LOCATION SHOULD CONTAIN ALL l'S 
AND THE REMAINING LOCATIONS. EXCEPT FOR THE MESSAGE BUFFER 
IMAGE AREA. SHOULD CONTAIN 0. DISCREPANCIES ARE REPORTED. AN 
ERROR AT THIS POINT IS MOST LIKELY DUE TO A ROM, PIPELINE OR 
SEQUENCER PROBLEM OR A TIMING PROBLEM. 
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6,6 TEST 6 - COMPLETION INTERRUPT 

4***4**** 444 ******* ********* ***** ****** ********** **************** 

* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 

* CONTROLLER * 

4**4 444***** *************** **********************.**************** 

THIS TEST VERIFIES THAT AN INTERUPT IS GENERATED AT THE COMPLETION OF 
THE WRITE CHARACTERISTICS COMMANO IF THE INTERRUPT ENABLE CIE) BIT IN 
THE COMMANO HEADER WORD IS SET. THIS TEST CHECKS THE FUNCTIONING OF THE 
INTERRUPT LOGIC AND BASIC PROCESSING OF THE IE BIT. 

THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT SERVICE 
ROUTINE IS SET UP TO EXPECT INTERRUPTS ANO EACH WRITE CHARACTERISTICS 
COMMAND IS ISSUED WITH THE IE BIT SET U). IT IS VERIFIED, WHERE 
APPROPRIATE , THAT THE STATUS BIT IN XSTO OF ANY MESSAGE PACKET IS SET 
ANO THAT A COMPLETTION INTERRUPT IS GENT RATED. FINALLY A SEQUENCE OF 
TWO COMMANDS IS ISSUED, THE FIRST WITH iE-1, ANO THE SECOND WITH IE-O. 
IT IS VERIFIED THAT NO INTERRUPT IS GYRATED AFTER THE SECQNO COMMAND 
AND THAT THE IE BIT IN XSTO IS 0. 
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6.7 TEST 7 - BASIC PACKET PROTOCAL 

****************************************************************** 

• NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 

* CONTROLLER * 

******************************************* ****** ***************** 

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF 

THE ACK BIT IN THE COMMAND HEADER WORC. AND THE 
REGISTER MODIFICATION REFUSED (RMR) LOGIC, 

6.7.1 TEST 7, SUBTEST 1: - 

VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COMMAND OPERATES PROPERLY 
WHEN MESSAGE BUFFER RELEASE INTERRUPTS ARE DISABLED CERI-0 ON PREVIOUS 
WRITE CHARACTERISTICS COMMAND). CHECKS THAT TSSR IS UPDATED PROPERLY 
AND THAT NO INTERRUPT IS GENERATED (EVEN IF THE IE BIT IN THE COMMAND 
WORD IS SET) AND THAT NO MESSAGE PACKET IS STORED, 

6.7.2 TEST 7, SUBTEST 2: - 

VERIFIES THAT THE BASIC MESSAGE BUFFER RELEASE COMMANO OPERATES PROPERLY 
WHEN MESSAGE BUFFER RELEASE INTERRUPTS ARE 1NABLED (ERI-1 0^ PREVIOUS 
WRITE CHARACTERISTICS COMMAND). CHECKS THM TSSR IS UPDATED PROPERLY 
AND THAT AN INTERRUPT IS GENERATED (IF THT. IE BIT IN THE COMMANO WORD IS 
SET) BUT THAT NO MESSAGE PACKET IS STORED* 

6.7.3 TEST 7, SUBTEST 3: - 

VERIFIES THAT AFTER THE CPU GIVES UP OWNERSHIP OF A MESSAGE BUFFER (VIA 
THE MESSAGE BUFFER RELEASE COMMANO), THAT A NEW COMMANO (E.G., WHITE 
CHARACTERISTICS) IS PROPERLY EXECUTED WHEN ISSUED WITH THE ACK BIT IN 
THE COMMAND HEADER EITHER SET OR CLEAR. 

6.7.4 TEST 7, SUBTEST 4; - 

VERIFIES THAT THE REGISTER VERIFICATION REFUSED (RMR) BIT IN TSSR 
OPERATES PROPERLY WHEN A COMMAND (WRITE CHARACTERISTICS) IS BEING 
EXECUTED. THE PROGRAM ISSl^S THE WRITE CHARACTERISTICS COMMANO (FROM 
ONE COMMANO BUFFER) THEN IMMEDIATELY WRITES THE ADDRESS OF ANOTHER 
COMMANO BIFFER (CONTAINING ANOTHER WRITE CHARACTERISTICS COMMANO. BUT 
WITH THIS ONE SPECIFYING DIFFERENT CHARACTERISTICS DATA), WHEN SSR 
SETS, THE PROGRAM VERIFIES THAT THE FIRST COMMAND COMPLETED PROPERLY, 
THAT RMR IS SET, AND THAT TH& S&CQNQ COMMAND IS IGNORED, 
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6,8 TEST 8 - NON-TAPE MOTION COMMANDS 

+****++***+****+*****************************#*******♦*******+*+* 

♦ NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25* S ♦ 

* CONTROLLER * 

THIS TEST VERIFIES PROPER OPERATION OF THE GET STATUS AND INITIALIZE 
COMMANDS. THREE SUBTESTS ARE USED. THE FIRST TWO VERIFY THAT THE 
RESPECTIVE COMMANDS RUN TO COMPLETION AND STORE A VALID MESSAGE PACKET. 
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6,9 TEST 9 - MEMORY ADDRESSING TEST 

***************************************************************** 

* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25' S ♦ 

* CONTROLLER * 
******************** ************* ****************** ******< ******** 

THIS TEST VERIFir THAT THE CONTROLLER CAN PROPERLY ADDRESS AND ACCESS 
ALL AVAILABLE CPi -1EM0RY C OTHER THAN THAT OCCUPIED BY THE DIAGNOSTIC 
AND THE DIAGNOSUC SUPERVISOR CODE) FOR BOTH READING (DATI) ANO WRITING 
(DATO). VERIFIED ARE THE PDP-11 BUS DRIVERS FOR ALL AVAILABLE ADDRESS 
LINES. UP TO THIS POINT ONLY 16 BITS HAVE BEEN USED FOR DMA TRANSFERS. 

6.9.1 TEST 9, SUBTEST 1: - 

THIS SLGTEST VERIFIES THAT THE CONTROLLER CAN FETCH A GET STATUS COMMAND 
FROM ALL AVAILABLE MEMORY LOCATIONS. TWO WORD BLOCKS ARE TESTED ONE AT 
A TIME BY FIRST SETTING ALL AVAILABLE MEMORY TO A BACKGROUND PATTERN OF 
125252. A GET STATUS COMMANO IS THEN EXECUTED TO VARIOUS ADDRESSES IN 
EACH AVAILABLE MEMORY 4K BLOCK. THE VARIOUS ADDRESSES ARE DETERMINED BY 
FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS. 

6.9.2 TEST 9, SUBTEST 2: - 

THIS SUBTEST VERIFIES THAT THE CONTROLLER CAN DEPOSIT MESSAGE PACKETS TO 
ALL AVAILABLE MEMORY LOCATIONS. FIRST ALL AVAILABLE MEMORY IS SET TO A 
BACKGROO*) PATTERN OF 125252. WRITE CHARACTERISTICS COMMANOS ARE THEN 
EXECUTED WITH MESSAGE BUFFER ADDRESSES SET TO VARIOUS ADDRESSES IN EACH 
AVAILABLE MEMORY LOCATION, THE VARIOUS ADORESSES ARE DETERMINED BY 
FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS. 

6.9.3 TEST 9, SUBTEST 3: - 

THIS SUBTEST VERIFIES THAT A CONTROLLER CAN FETCH A WRITE 
CHARACTERISTICS DATA BLOCK FROM ALL AVAILABLE MEMORY LOCATIONS. FIRST 
ALL AVAILABLE MEMORY IS SET TO A BACKGROUND PATTERNO OF 125252. THE 
WRITE CHARACTERISTICS COMMANOS ARE EXECUTED WITH CHARACTERISTIC DATA 
BLOCKS AT VARIOUS MEMORY ADORESSES. THE VARIOUS MEMORY ADDRESSES ARE 
DETERMINED BY FLOATING FIRST A (1) THEN A (0) THROUGH THE ADDRESS BITS, 

6.9.4 TEST 9, SUBTEST 4: - 

THIS SIGTEST VER r FIES THAT THE NXM ERROR BIT IN THE TSSR REGISTER IS SET 
WHEN ATTEMPTING 10 FETCH DATA ( A CHARACTERISTIC DATA BLOCK) FROM 
SELECTED NONEXISTANT LOCATIONS. IF NXM FAILS TO SET IT IS LIKELY THAT 
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USER DOCUMENTATION ifcW * A 

AN LSI-11 BUS DRIVER IS FAILING TO ASSERT AN ADDRESS LINE. ADDRESSES 
TESTED INCLUDE ALL COMBINATIONS OF HIGH ORDER ADDRESS BITS (IE; BITS 
16-21)* 
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USER DOCUMENTATION 

6.10 TEST 10 - INITIALIZE AFTER WRITE CHARACTERISTICS 

** t ******* ****************** *********** ************************** 

* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25* S * 

* CONTROLLER * 

***************************************************************** 

THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMMAND INVOKED AFTER A 
WRITE CHARACTERISTICS COMMAND SETS UP THE COMMAND, MESSAGE AND 
CHARACTERISTIC IMAGE BLOCK IN TH£ CONTROLLER RAM CORRECTLY, 
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6,11 TEST 11 - BASIC WRITE SUBSYSTEM MEMORY COMMAND 

*******************************************************>******** 

* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S * 

♦ CONTROLLER * 
**************************************************************** 

THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A BSELO 
SELECT CODE OF (NO-OP) EXECUTES CORRECTLY. THE TEST FURTHER VERIFIES 
MICROPROGRP COMMAND DECODING AND HANDLING SEQUENCES. 



CZTKEA TK25 FRT END FUNC 01 
USER DOCUMENTATION 



\ 
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SEQ 24 



743 






744 






750 






751 


000000 




752 






753 






759 


000000 




760 




002000 


761 


002000 
002000 




762 






763 






764 






765 






766 






767 






768 






769 


002000 




770 


002000 
002000 






002000 


103 




002001 


132 




002002 


124 




002003 


113 




002004 


105 




002005 


000 




O020O6 


000 




002007 


000 




002010 






002010 


101 




002011 






002011 


060 




002012 






002012 


000001 




002014 






002014 


001217 




002016 






002016 


046052 




002020 






002020 


046212 




002022 






002022 


002124 




002024 






C02024 


002134 




002026 






002026 


046436 




002030 






002030 


000000 




002032 






002032 


000000 




002034 






002034 


000000 




002036 






002036 


000000 




002040 






002040 


046404 



i INITIALIZE SUPERVISOR MACROS 



.SBTTL PROGRAM HEADER 

.MCALL SVC 

SVC 

.ENABLE LC 

.NLIST BEX.CND 

.ENABL AMA.ABS 

. - 2000 

BGNMOD TUV2A 
TUV2A:: 



i THE PROGRAM HEADER IS THE INTERFACE BETUEEN 
I THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNSU, bGNSF T , BGNAU , BGNDU , BGNRP T , BGNSETUP 
HEADER CZTKE,A,0,655. .0 

I DIAGNOSTIC NAME 



L*NAME: 



LiREV; 
LIDEPO 
LJUNIT 
LiTIML 
LIHPCP 
LISPCP 
LSHPTP 
LISPTP 
LJLADP 
L$STA: 
L*CO: : 
LIDTYP 
LIAPT: 
LSDTP; 



.ASCII /C/ 

.ascii a/ 

.ASCII /T/ 

.ASCII /K/ 

.ASCI T /E/ 

.BYTE 

.BYTE 

.BYTE 

.ASCII /A/ 

.ASCII /O/ 

.WORD 



jREVISION LEVEL 
|0 

iNWIBER OF UNITS 
{LONGEST TEST TIME 
iPOINTER TO H.W. QUES, 
{POINTER TO S.W. QUES, 
jPTR. TO DEF. H.U. PTABLE 
jPTR, TO S.W. PTABLE 
jDIAG. END ADD^tSS 
jRESERVED FOR APT STATS 

iDIAGNOSTIC TYPE 
jAPT EXPANSION 



T$PTHV 

.WORD 655. 

.WORD LIHARD 

.WORD Li SOFT 

.WORD L$HW 

.WORD L$SW 

.WORD LtLAST 

.WORD 

. WORD 

. WORD 

. WORD 

tPTR* TO DISPATCH TABLE. 

.WORD Lt DISPATCH 



KffiiaM^DiR 1 END FUNC n 
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SEQ 25 



002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
0' "16 
0...i20 
002120 



000000 

000000 

000000 

003 
003 

000000 
000000 

000000 

003334 

022674 

000000 

000000 

022366 

022464 

000000 

003342 

104035 

000000 

021606 

022646 

022572 

021576 

000000 

000000 

000000 



L$PRI0 








* , WORD 





LIENVI 








* .WORD 





LJLXP1 








' , WORD 





LJMREV 








' .BYTE 


CIREVIS 




.BYTE 


CREDIT 


L*EF:: 








.WORD 







.WORD 





LJSPC: 








.WORD 





LJDEVP 








' .WORD 


L*DVTYP 


LJREPP 








'.WORD 


L$RPT 


L*EXP4 








'.WORD 





L*EXP5 








'.WORD 





LSAUT: 








.WORD 


LJAU 


LIDUT; 








.WORD 


LiDU 


L$LUN; 








.WORD 





L$0ESP 


♦ 






' . WORD 


LIDESC 


L$L0AD 


• 






F.HT 


E$LOAD 


L$ETP: 








.WORD 





LIICP: 








.WORD 


L$INIT 


L$CCP: 








.WORD 


L$CLEAN 


L$ACP: 








.WORD 


L$AUTO 


LtPRT: 








.WORD 


UPROT 


LITEST 


J 






.WORD 





L$DLY: 








.WORD 





LIHIME 


1 1 






♦ WORD 






{DIAGNOSTIC RUN PRIORITY 

I FLAGS DESCRIBE HOW IT WAS SETUP 

j EXPANSION VZnO 

i SVC PEV A^D EDIT * 

ON 

jDIAG. EVENT FLAGS 



; POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 



;PTR. TO ADD UNIT CODE 

jPTR. TO DROP UNIT CODE 

iLUN FOR EXERCISERS TO FILL 

;POINTER TO DIAG. DESCRIPTION 

ITERATE SPECIAL AUTOLOAD EMT 

{POINTER TO ERRTBL 

;PTR. TO INIT CODE 

}PTR. TO CLEAN -UP CODE 

;PTR. TO AUTO CODE 

jPTR. TO PROTECT TABLE 

;TEST NUMBER 

i DELAY COUNT 

tPTR* TO HIGH MEM 



CZTKEA TK25 FRT END FUNC 41 
DEFAULT HARDWARE P- TABLE 



772 

773 

7 74 

775 

776 

111 

778 002122 
002122 
002124 
002124 

779 

780 002124 

781 002126 

782 002130 

783 002132 
002132 



MACRO M1200 20-APR-84 08:12 
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SEQ 26 



.SBTTL DEFAULT HARDWARE P-TABLE 



♦ «• 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE ItST-DCVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



\ -- 



000003 



172522 
000224 
000240 



L*HW: 
DFPTBL;; 



BGNHW 
.WORD 



L10000? 



.WORD 
.WORD 

.WORD 
ENDHW 



DFPTBL 
L10000-L$HW/2 



172522 

224 

PRI05 



jDEFAULT HAPJ-P-TABLE 



5 2ND (OF 2) REGISTERS 
I INTERRUPT VECTOR 
l INTERRUPT PRIORITY. 



CZTKEA TK25 FRT ENO FUNC #1 
SOFTWARE P- TABLE 

785 
706 
787 
788 
789 
790 
791 002132 

002132 000004 

002134 

002134 
792 

793 002134 000000 

794 002136 000000 
795 

796 

797 002140 000031 

798 002142 000310 

799 002144 
002144 

800 
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SEQ 27 



.SBTTL SOFTWARE P-TABLL 

I ♦♦ 

j THE SOFTWARE P- TABLE CONTAINS THE VALUES OF THE PROGRAM 
I PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR, 
l •- 

BGNSW SFPTBL 

.WORD L10001-LISW/2 
LtSWu 
SFPTBL: : 



TRANSTST; 
WITS: j 



LERRHAX j 
GERRMAXj 

LiOOOli 



ENOSW 



.WORD 
.WORD 



.WORD 

♦ WORD 



i ENABLE RAM DUMP IF >1 

i INHIBIT ITERATION OPTION. 

I ... • ITERATE. 

I , . .NZ • INHIBIT ITERATE. 
25. i LOCAL (PCR TEST) ERROR LIMIT 
200, \ GLOBAL (PER UNIT) ERROR LIMIT 



§TOr^ 5 t&§iIe end ruNC #i 
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SEQ 28 



802 
809 

814 

820 

821 

f. — - 

823 

825 
826 
827 
828 
829 
833 002144 



,SBTTL GLOBAL EQUATES SECTION 



>SBTTL GLOBAL EQUATES SECTION 

I ♦♦ 

j THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 

j ARE USED IN MORE THAN ONE TEST. 

I -- 



EQUALS 



j GET STANOARD EQUATES 



100000 
040000 
020000 
010000 
004 OOO 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
OO00O2 
000001 

001000 
000400 
000200 
O001O0 
000040 
000020 
O00010 
O000O4 
000002 
OO0001 



000040 
000037 
000036 
000035 
Q00034 



» BIT 


OIFINITIONS 


BIT15- 


- 100000 


BIT14- 


- 40000 


BIT13- 


. 20000 


BIT12- 


• 10000 


BITH- 


- 4000 


BIT10- 


- 2000 


BIT09- 


- 1000 


BITO«- 


- 400 


BIT07- 


- 200 


BIT06- 


- 100 


BIT05- 


• 40 


BIT04- 


- 20 


BIT03- 


■ 10 


BIT02- 


- 4 


BIT01- 


• 2 


BITOO- 


• 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


BIT2-. 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



1 EVENT FLAG DEFINITIONS 

i EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

i 

32, j START COWAND WAS ISSUED 

31, i RESTART COMMAND WAS ISSUED 

30, , CONTIN^ C0r»1AND WAS ISSUED 

2*. I 



EF.START-- 

EF.RESTART-- 

EF. CONTINUE- - 

EF.NEW-- 

EF.PWR-- 28, 

I 

i PRIORITY LEVEL DEFINITIONS 



A NEU PASS MAS BEEN STARTED 
1 A POWER-FAIL/PQW£R-UP OCCURRED 



CZTKEA TKJ»S FRT ENO * UNC 01 
GLOBAL EQUATES SECTION 

000540 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 

654 

335 002144 



000250 

177572 
177574 
177576 
17251$ 



D3 
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PRI07-- 


540 








PRI06-- 


500 








PRI05-- 


240 








PRI04-- 


200 








PRI03-- 


140 








PRI02-- 


100 








PRI01-- 


40 








PRIOO-- 











1 OPERATOR FLAG 


BITS 






EVL-" 


4 








LOT-- 


10 








ADR-- 


20 








IDU-- 


40 








ISR-- 


100 








UAM-- 


200 








BOE-- 


400 








PNT- 


1000 








PRI-- 


2000 








1XE-- 


4000 








IBE-- 


10000 








IER-- 


20000 








LOE-- 


40000 








HOE-- 


100000 










KT11 


* t 


lOEFINE MEMORY MANAGEMENT REGISTERS 


.SBTTL 


MEMORY 


MANAGEMENT DEFINITIONS 




i»KTll 


VECTOR ADDRESS 






WVEC- 


250 








I4KT11 


STATUS REGISTER 


ADDRESSES 




SRO- 


177572 








SR1- 


177574 








SR2- 


177576 








SR5- 


172516 








.IF NB 










i *USER 


M I H PAGE 


DESCRIPTOR REGISTERS 




UIPDRO- 


177600 








UIPORl- 


177602 








UIP0R2- 


177604 








UIPDR5- 


177606 








UIP0R4 - 


177610 








UIP0R5- 


177612 








UIPDR6- 


177614 








UIP0R7- 


177616 








.if nb 










I*USER 


"D" PAGE 


DESCRIPTOR REGISTORS 




UOPORO- 


177620 








U0P0R1- 


177622 








U0PDR2- 


177624 








U0P0R3- 


177626 








U0POH4- 


177650 








U0PDR5- 


177632 








U0P0R6- 


177654 








U0PDR7- 


17 7656 








.ENOC 










4+USER 


"I" PAGE 


ADDRESS 


REGISTERS 





SEQ 29 



CZTKEA TK25 FRI END FUNC *1 
MEMORY MANAGEMENT DEFINITIONS 
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SEQ 30 



UIPARO- 

UIPAR1- 

UIPAR2- 

UIPAR3- 

UIPAR4- 

UIPARS- 

UIPAR6- 

UIPAR7* 

.IF NB 

j *USER 

UOPARO- 

U0PAR1- 

U0PAR2- 

UDPAR3- 

U0PAR4- 

U0PAR5- 

U0PAR6- 

U0PAR7- 

.ENDC 

.ENOC 

.IF MB 

l*Stf>ERVISOR 



177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 

"D" PAG* 
177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 



ADDRESS REGISTERS 



SIPDRO 
SIPDR1 
SIPDR2 
SIPDR3 
SIPDR4 
SIPDR5 
SIPDR6 
SIP0R7 
.IF MB 
j*SUPERVISOR 



172200 
172202 
172204 
172206 
172210 
172212 
172214 
172216 



M I«» PAGE DESCRIPTOR REGISTERS 



SDPORO 

SOPOR 1- 

S0P0R2- 

SDPDR3- 

SDPDR4. 

SDPDR5- 

S0PDS6- 

SDPDR7- 

.ENDC 

^SUPERVISOR 



172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 



M 0" PAGE DESCRIPTOR REGISTERS 



SIPARO- 
SIPAR1- 

SIPAR2- 
SIPAR3- 
SIPAP4* 
SIPAR5- 
SIPAR6- 
SIPAR7- 

IF NB 
*, ♦SUPERVISOR 



1 72240 
172242 
172244 
172246 
172250 
172252 
172254 
172256 



"I" PAGE ADDRESS REGISTERS 



SOPARO' 
SDPAR1 
SDPAR2 
SDPAR3 

SDPAR4 



172260 
172262 
172264 
1 72266 

172270 



*'D" PAGE ADDRESS REGISTERS 



CZTKFA TK25 FRT FND FUNC *1 
MEMORY MANAGEMENT DEFINITIONS 
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SEQ 31 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 



SDPAR5- 172272 

SDPAR6- 172274 

SDPAR7- 172276 

.F.NOC 

♦ ENOC 

i*KCRNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO- 172300 

KIPDR1- 172302 

KIPDR2- 172304 

KIP0R3- 172306 

KIPDR4- 172310 

KIP0R5- 172312 

KIPDP6- 172314 

KIPDR7- 172316 

.IF NB 

i*KERNEl M D M PAGE 

DESCRIPTOR REGISTERS 
KDOOPO- 172320 
KDPDR1- 172322 
KDPDH2- 172324 
KDPDR3- 172326 
KDPDH4- 172330 
KDPDR5- 172332 
KDP0«6- 172334 
KDPDR7- 172336 
.ENDC 

t*KERNEL "I" PAGE ADDRESS REGISTERS 
KIPARO- 172340 
KIPAR1- 172342 
KIPAR2- 172344 
KIPAR3- 172346 
KIPAR4- 172350 
KIPAR5- 172352 
KIPAR6- 172354 
KIPAW7- 172356 

IF NB 
j*KERNEL "0" PAGE ADDRESS REGISTERS 
KDPARO- 172360 
KDPAR1- 172362 
KDPAR2* 172364 
KDPAR3- 172366 
KDPAR4* 172370 
KDPAR5- 172372 
KDPAR6- 172374 
KDPAR7* 172376 
»ENDC 



G3 
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SEQ 32 



840 




841 




842 




843 




844 




845 




846 


000004 


84 7 


000060 


848 


177560 


849 


177562 


850 




851 




852 




853 




854 




855 


100000 


856 


040000 


857 


020000 


858 


010000 


859 


004000 


860 


002000 


861 


001400 


862 


0002C0 


863 


000100 


864 


000060 


865 


000016 


866 




867 




868 




869 




870 




871 




872 




873 




674 




875 


100000 


876 


040000 


877 


02OOO0 


678 


010000 


879 


00*000 


880 


002000 


881 


001000 


882 


00O400 


883 


000200 


884 


000100 


085 


000040 


886 


000020 


887 


0OO010 


885 


000004 


HK l ) 


00O002 


8 l J0 


OOOOOi 


89 L 




892 




893 




894 




895 




Q96 





.SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 



I SOME GENERAL EQUATES 



ERRVEC-- 


4 


TTIVEC-- 


60 


TTICSR-- 


177560 


TTIBFR-- 


177562 



I POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
I INTERRUPT VECTOR FOR CONSOLE INPUT 
I BUS ADDRESS OF CONSOLE INPUT 
i CONSOLE INPUT DATA BUFFER 



I + 

jBIT DEFINITIONS FOR TSSR REGISTER 

i - 



sc- 


BIT15 


BIE- 


BIT14 


SCE- 


BIT15 


RMR- 


BIT12 


NXM- 


BIT11 


N8A- 


BIT10 


HIADOR- 


BIT9JBIT8 


SSR- 


BIT7 


OFL- 


BIT6 


F A TERR- 


BIT4JBIT5 


TERCLS- 


BIT3!BIT2!BITl 



i SPECIAL CONOITION 

»BUS INTERFACE ERROR 

j SANITY CHECK ERROR 

jMOOIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

I NEED BUFFER ADDPESS 

lEXTENDED ADDRESS BITS 

l SUB SYSTEM READY 

lOTF LINE BIT 

j FATAL TERMINATION ERROR CODES 

{TERMINATION CODES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 
CXSTO) 



XSOTMK- 


BIT15 


XSOflLS- 


BIT14 


XSOLET- 


8IT13 


XSORLL- 


BIT12 


XSOULE- 


BITU 


XSONEF- 


BIT10 


XSOILC- 


BIT9 


XSOILA- 


BIT8 


XSOMOT- 


BIT7 


XSOONL- 


BIT6 


XSOIE- 


BIT5 


XSOVCK- 


BIT4 


XSOPED- 


BIT3 


XSOWLK- 


BIT2 


xsobot- 


BIT1 


XS0E0T- 


BITO 



I TAPE MARK DETECTED 

iRECORD LENGTH SHORT 

iLOGICAL END OF TAPE 

iRECORD LENGTH LONG 

tWRITE LOCK ERROR 

iNON EXECUTABLE FLECTION 

I ILLEGAL COMMAND 

i ILLEGAL AODRESS 

jTAPE IN MOTION 

j TRANSPORT ON LINE 

j INTERRUPT ENABLE 

I VOLUME CHECK BIT 

j PHASE ENCODED DRIVE 

jWRITE LOCKED 

I BEGINNING OF TAPE 

I END OF TAPE 



jBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 

j(XSTl) 

1 



3 



CZTKEA TK25 FRT END F'UNC frl MACRO M1200 
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SEQ 33 



897 


tooooo 


898 


040000 


899 


020000 


900 


017375 


901 


00O40O 


902 


000002 


903 




904 




905 




90b 




907 




908 


10O000 


909 


040000 


910 


035400 


911 


002000 


912 


000200 


913 


000100 


914 


000077 


915 


000007 


916 




917 




918 




919 




920 




921 


177400 


922 


000200 


923 


000100 


924 


000040 


925 


000020 


926 


OOOOIO 


927 


000006 


928 


000001 


929 




930 




931 




932 




933 




934 


100000 


935 


040000 


936 


020000 


937 


017400 


938 


000377 


939 




940 




941 




942 




943 




944 




945 




94c 




947 


000006 


948 


000006 


949 




950 




951 




9*2 





Xl.DLT - 

Xl.SPARE- 
XI. COP - 
Xl.MBZ - 

xi, Rep • 

Xl.UNC ■ 



BIT15 jOATA LATE 

BIT14 ,NOT USED 

BIT13 jCORRECTABLE DATA ERROR 

BIT12fBlTllvBIT10*BIT9*BIT7*BIT6*8IT5*BIT4*BIT3*BIT2*BIT0 j ALWAYS 

BIT8 ,READ BUS PARITY ERROR 

BIT1 i UNCORRECTABLE DATA OR HARD ERROR 



iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
|(XST2) 



X2 . OPM 
X2.RCE > 
X2. SPARE 
X2.WCF ' 
X2.EXTF . 
X2.BUFE ■ 
X2.REV ' 
X2.UNIT ■ 

iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
j(XST3) 



BIT15 jOTERATlON IN PROGRESS (TAPE MOVING) 

BIT14 ,RAM CHECKSUM ERROR 

BIU3tBITl2»BITll»BIT9»BIT6 iNOT USED BY TK-25 (ALWAYS-O) 

BIT10 i WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

BIT7 ,IF WRITE CHAR CMC THEN - EXTENDED FEATURES ENABLED 

BIT6 | IF WRITE CHAR CMO THEN • BUFFERING ENA8LED 

000077 ,IF WRITE CHAR CMO THEN • MICROCODE REVISION LEVFL 

BIT2*BIT1*BIT0 »IF GET STATUS THEN • CURRENTLY SELECTED UNIT NO. 



X3.MDE • 


• 177400 


X3,SPAPE' 


■ BIT? 


X3.0PI - 


• BIT6 


X3.REV - 


• BIT5 


X3.TRF - 


■ BIT4 


X3.DCK ■ 


■ BIT3 


X3.MBZ - 


■BIT2»BIT1 


X3.RIB « 


■ BITO 



I'lICRO-DIAGNOSTIC ERROR CODE 
NOT USED BY TK 25 
lOPERATION INCOMPLETE 
iREVERSE 

I TRANSPORT RESPONSE FAILURE 
iDENSITY CHECK 
iNOT USED ALWAYS 
iREVERSE INTO BOT 



I ♦ 

I BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
j(XST4) 



J - 

X4.HSP 

X4,RCE 
X4.TSM 
X4.MBZ 
X4.WRC 



BIT15 i HIGH SPEED 

BIT14 jRETRY COUNT EXCEEDED 

BIT13 , TRANSPORT SPECIAL MODE 

BIT12*BIT11»BIT10*BIT9»BIT8 jNOT USED ALWAYS 
000377 jWRITE RETRY COUNT FIELD 



TSSR TERMINATION CODES (BIT 0-2) 



TSREJ 
UNREC 1 



3*2 
6 



i COMMAND REJECTED 
I UNRECOVERABLE ERROR 



9S 



I DEVICE REGISTER OFFSETS 



CZTKEA TK25 FR1 END FUNC 01 MACRO M1200 
TK-25 REGISTER AND PACKET DEFINITIONS 



IS 
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SEQ 34 



954 




955 




956 


177776 


957 


177776 


958 


177776 


959 


177776 


960 


177777 


961 


177777 


962 


000000 


963 


000001 


964 




965 




966 




967 




968 


000003 


969 




970 




971 




972 




973 


000017 


974 


000013 


975 


000012 


976 


000011 


97 7 


0OO010 


978 


000006 


979 


00OO05 


980 


000004 


981 


00OO01 


982 




983 




984 




985 




986 


10OO00 


967 


040000 


988 


020000 


989 


OlOOOO 


990 


007400 


991 


000200 


992 


000140 


993 


000037 


994 




995 




996 




997 


000000 


998 


000400 


999 


001000 


10O0 


002000 


1001 


002400 


1002 




1003 




1004 




1005 




1006 


00016/ 


1007 


000200 


1008 


000020 


1009 


000027 


1010 


000104 



I - 



TSBA-- 


-2 


TSBAL-- 


-2 


TSDB" 


-2 


TSDBL-- 


-2 


TSBAH-- 


-1 


TSDBH-- 


-1 


TSSR-- 





TSSRH" 


1 



} TSDB ADDRESS BIT DEFINITIONS 
A1716 - BITlfOITO 



COMMAND DEFINITIONS 



{ - 

P.GETSTAT 
P.INIT 
P. CONTROL 
P. FORMAT 
P. POSITION 
P.WRTSU6 
P. WRITE 
P.WRTCHAR 
P. READ 



17 

13 

12 

11 

10 

6 

5 

4 

1 



jTSDS/TSBA REGISTER 
jTSDB/TSBA REGISTER 

jTSDB/TSBA REGISTER HIGH BYTE 

jTSSR REGISTER 

iTSSR REGISTER HIGH BYTE 



{ADDRESS BITS 17; 16 ARE IN 1:0 



,GET STATUS 

{INITIALIZE 

{CONTROL COMMANDS 

{FORMAT 

{POSITION 

{SUBSYSTEM WRITE 

{WRITE 

{WRITE CHARACTERISTICS 

{READ 



i ♦ 



COMMAND PACKET HEADER WORD BIT DEFINITIONS 



i - 



P.ACK • BIT15 

P.CVC - BIT14 

P.OPP ■ BIT13 

P.SWB - BIT12 

P.MOOE - BIT11!BIT10!BIT9!BIT8 

P. IE - BIT7 

P.FMT- BIT6!BIT5 

P.CMO - 37 

J * 

{ CONTROL COMMAND MODE COORS 



{BUFFER AVAIL FOR CONTROLLER 

{CLEAR VOLUME CHECK 

{REVERSE SEQUENCE OF DATA BITS 

,SWAP BYTES IN MEMORY 

{EXTENDED COMMAND MOOE FIELD 

{INTERRUPT ENABLE 

{PACKET HEADER TYPE (ALWAYS-O) 

{MAJOR COMMANO FIELD 



PC, RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



0*256. 
1*256. 
2*256. 
4*256. 

5*256. 



{RELEASE BUFFER 

iREWINO 

{ NO-OP 

{REWIND IMMEDIATE 

{SECURITY ERASE 



INTERRUPT 



{ CONTROLLER RAM DEFINITIONS 

t ■ 

RMCHBEG - 167 

RMCHENO - 200 

RMPKTBEG- 20 

RMPKTENO- 27 

RMMSjBEG- 104 



.^CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
{CHARACTERISTICS 10 DATA END RAM ADDRESS 
{COMMAND PACKET BEGIN RAM A)ORESS 
{COMMAND PACKET FNO RAM ADDRESS 
{MESSAGE BUFFER BEGIN RAM ADDRESS 



J3 



CZTKEA TK25 FRT END FUNC 41 MACRO M1200 
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SEQ 35 



RTS 



1011 


000117 


1012 




1013 




1014 




1015 




1016 




1017 




1018 


000006 


1019 


OOOO10 


1020 


000012 


1021 


000014 


1022 


000016 


1023 




1024 




5 025 




1026 




1027 




1026 




1029 




1030 




1031 


000002 


1032 


000004 


1033 


000006 


1034 




1035 


OOOOIO 


1036 




1037 




1038 




1039 




1040 


oooooo 


1041 


000001 


1042 


00OOO2 


1043 


000004 


1044 




1045 




1046 




1047 




1048 


OOOOOO 


104^ 


000001 


1050 


0OOO02 


1051 


00OOO3 


1C52 


000004 


1053 


000005 


1054 


000006 


1055 


000007 


1056 


.00010 


1057 


OOOOll 


1058 


000020 


1059 


000021 


1060 


000022 


1061 


000023 


1062 


000024 


1063 




1064 




1065 




1066 




1067 


000200 



RMMSGEND' 117 



j MESSAGE BUFFER END RAM ADDRESS 



{REGISTER DEFINITIONS IN THE MESSAGE BUFFER 

J 
t - 



XSTO-- 


6 


XST1-- 


8. 


XST2-- 


10 


XST3-- 


12 


XST4-- 


14 



i EXTENDED 
,EXTENOED 
i EXTENDED 
jEXTENOED 
I EXTENDED 



STATUS 
STATUS 
STATUS 

STATUS 
STATUS 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 




1 
2 
3 
4 



(WORD 
(UOfU) 
(UIORD 
(WORD 
(WORD 



4) 
5) 

6) 

7) 
8) 



; ♦ 



{OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



J - 



PKLOW 


■ 2 


PKHI 


• 4 


PKBCNV • 


' 6 


EXBCNT-10 


iDATA PACKET OFFSETS FO 


BSELO 


< 


BSEL1 


■ 1 


SEL2 


9 t. 


SELDATA • 


• 4 


1 ♦ 

jBSELO SELECT CODES FOR 


PU.NOP 


• 


PW. RDRAM 


• 1 


PW.WTRAM 


■ 2 


PW.RF.tfii 


■ 3 


PU.UFIKO 


• 4 


PU.RDSTAT 


• 5 


PW.WCTL 


■ 6 


PW.WFMT 


■ 7 


PW.WMISC 


10 


PW.WNPrt 


' 11 


PW.D22 


• 20 


PW.011 


■ 21 


PW.013 


• 22 


PW.N013U 


■ 23 


PW.RDEXY 


' 24 



{LOW ORDER CHARACTERISTIC DATA POINTER 
{HIGH ORDER CHARACTERISTIC DATA POINTER 
{NUMBER OF BYTES IN DATA PACKET 

{NUMBER OF BYiES IN EXTENDED DATA PACKET 



WRITE SUBSYTEM COMMANO 



{BYTE 

{BYTE 
{WORD 
{WORD 



WRITE SUBSYSTEM COMMANO 



NO-OP 

READ RAM 

WRITE RAM 

READ FIFO 

WRITE FIFO 

READ STATUS 

WRITE TAPE CONTROL 

WRITE TAPE FORMAT 

WRITE MISCELLANEOUS 

WRITE NPR CONTROL. 

DO MICROTEST 22 

00 MICROTEST 11 

DO MICROTEST 13 

DISABLE MICROTEST 11 AND 13 

READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPU 



;BSEL1 CODES FOR WRITE TAPE CONTROL 
WC.IFAD - BIT7 



jIFAD - FORMATTER ADDRESS 



<3 



CZTKEA TK25 FRT END FUNC »1 MACRO M1200 
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SEQ 36 



1068 


000100 


1069 


000040 


1070 


000020 


1071 


000010 


1072 


00O0O4 


1073 


000002 


1074 


000001 


1075 




10/6 




1077 




10 78 




1079 


000200 


1080 


000100 


1081 


000040 


1082 


000020 


1083 


000010 


1084 


000004 


1085 


000002 


1086 


000001 


1087 




1088 




1089 




1090 




1091 




1092 


000200 


1093 


000020 


1094 


000010 


1095 


0000O6 


1096 


000001 


1097 




1098 




1099 




1100 


000000 


1101 


000002 


1102 


000004 


1103 


000006 


1104 




1105 




1106 




1107 


000200 


1108 


000100 


1109 


000040 


1110 


000020 


1111 




1112 




1113 




1114 




1115 


000200 


1116 


000100 


1117 


000040 


:ui8 


000020 


1119 


000010 


1120 


000004 


1121 


000003 


1122 


100000 


n.v< 


040000 


1124 


020000 



WC . IOTAD 

WC.I1TAD 

WC.I5RESV 

WC.IREW 

WC.IRWU 

WC.IFEN 

WC.IGO 



8IT6 
BIT5 
BIT4 
BIT3 
BITZ 
BIT1 
BITO 



jITADO 


- TRANSPORT ADDRESS 


BIT 





jITADl 


- TRANSPORT ADDRESS 


BIT 


1 


»IRESV5 


- RESERVED *5 






tIREW 


- REWIND 






iIRWU 


- REWIND AND UNLOAD 






jIFEN 


- FORMATTER ENABLE 






tGO 









iBSELl CODES FOR WRITE FORMAT 



t - 

WF.IHISP 

WF.IWRf 

WF.IREV 

WF.IWFM 

WF,IEDIT 

WF.IERASE 

WF.I3RESV 

WF.I4RESV 



I ♦ 



- BIT7 
• BIT6 

- BIT5 

- BIT4 

- BIT3 

- BIT2 

- BIT1 

- BITO 



jIHISP 

»IWRT 

lIREV 

jIWFM 

jIEDIT 

jIERASE 

I.IRESV3 

jIRESV4 



HIGH SPEED 

WRITE 

REVERSE 

WRITE FILE MARK 

EDIT 

ERASE 

RESERVED *3 

RESERVED 04 



jBSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 

MS.RSFIFO 
MS.RSTAPE 
MS. ATTN 
MS.RSD 



■ BIT7 

- BIT4 

- BIT3 

- BIT2JBIT1 

- BITO 



MS, ATTN SUBCODES 

MSA. NOP ■ 0*2 
MSA.VOl - 1*2 
MSA.NRAM- 2*2 
MSA.FRAM- 3*2 



I INVERT SENSE OF EXTENDED FEATURES SWITCH 

I RESET FIFO ANO INPUT PARITY ERRORR 

{RESET TAPE STATUS IN 2 Fl.IP-FLOPS 

» ATTENTION TRIGGER FIELD 

iRESET TIMER A,B THEN DELAY TIMES IN SEL2 



iNO-OP (NOTHING TRIGGERED) 

jSIMLCATE ON-LINE/OFF-LINE TRANSITION 

; FORCE NON-FATAL RAM ERROR OORCES ERRCODE 

jFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



S4) 



WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



NP.IR 
NP.OUT 
NP.LOOP 
M» . WRP 

{ * 



BIT7 
BIT6 
BIT5 
BIT4 



j INTERRUPT REQUEST (01 TRANSITION) 

j TAPE DATA DIRECTION OUT CO- IN) 

{ENABLE TRANSPORT LOOPBACK 

{WRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



j READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
J - 



52. DIM 


■ BIT7 


S2.ILW 


• BIT6 


S2.0UTRDY 


• B1T5 


S2.INR0Y 


■ BTT4 


S2.ATIMR 


• BIT3 


S2.BTIMR 


■ BIT2 


S2.UNDEF 


■ BIT1*BIT0 


Sl.PARIN 


■ BIT15 


S1.I2RESV 


• BIT14 


S1.I1RESV 


• BIT13 



i WORD 09 BYTE 2 



DATA IN MISS 
ILU H 
OUT RDY H 
IN RDY H 



(UNDEFINED) 
WORD Od BYTE 



TIMER 
TIMER 



FLAG 
FLAG 



1 PARIN H 
IRESV2 
IRESV1 



3 



CZTKEA TK25 FRT END FUNC 01 MACRO M1200 

TK-25 REGISTER AND PACKET DEFINITIONS 



1125 


010000 


1126 


004000 


1127 


002000 


1128 


001000 


1129 


000400 


1130 


000200 


11*1 


000100 


1132 


000040 


1133 


000020 


1134 


000010 


1135 


000004 


1136 


000002 


1137 


000001 


1138 




1139 




1140 


177560 


1141 


177562 


1142 


177564 


1143 


177566 


1144 


007776 


1145 




1146 




1147 




1148 


174400 


1149 


174402 


1150 


174404 


1151 


174406 


1152 




1153 




1154 




1155 




1156 




1157 




1158 




1159 




1160 


000004 


1161 


000006 


1162 


00001C 


1163 


000014 


1164 


000016 


1165 




1166 




1167 




1168 




1169 




1170 




1171 


000001 


1172 


000013 


1173 


177730 


1174 


000006 


1175 


00017 7 


1176 


100200 


1177 




1178 




1179 




1180 




1181 


177560 



200 20-APR-84 08s 12 PAGE 29-5 


Sl.IEOT 


■ BIT12 


Sl.IIOENT 


• BIT11 


Sl.ICER 


• BIT10 


Sl.IFMK 


■ BIT9 


Sl.IHER 


• 3IT8 


SO.ISPEED 


• BIT7 


SO.IROY 


■ BIT6 


SO.IONL 


• BIT5 


SO.ILDP 


• BIT4 


SO.IDBY 


■ BIT3 


SO.IRWO 


■ BIT2 


S0,IFBY 


■ BIT1 


SO.IFPT 


■ BITO 


; SPECIAL KEYBORD STUFF F 


TKS 


-177560 


TKB 


•177562 


TPS 


•177564 


TPL 


•177566 


HIMEM 


•007776 


i CONTROLLER DEFINITIONS 

i 


CSR 


■174400 


BAR 


•174402 


DAR 


■17440< 


MPR 


•174406 



CONTROLLER COMMANDS 



OLGEiS 


-4 


SEEK 


-6 


DLRDHO 


-10 


READ 


• 14 


DLRDNH 


-16 



READY 


-1 


DLSR 


-13 


OLERR 


-177730 


DLUN 


■6 


DLCYL 


•000177 


DLDNER 


■100200 



SEQ 37 









IEOT 


L 










IIDENT 


H 








ICER 


H 










IFMK 


H 










IHER 


H 




tWORD 


08 


BYTE 


ISPEED 


H 








IRDY 


L 










IONL 


L 










ILDP 


I. 










IDBY 


i 










IRWD 


L 










IFBY 


L 










IFPT 


L 




PROGRAM 











KEYBOARD STATUS REGISTER 
KEYBOARD DATA REGISTER 
CONSOLE PRINTER STATUS RL, 
CONSOLE PRINTER DATA REGISTl 
HIGH MEMORY MASK VALUE 



i STATUS AND CONTROL REGISTER 

iDL ADDRESS REGISTER 

j PLATTER ADDRESS 

I MULTIPURPOSE REGISTER 



j GET STATUS COMMANO 

tSEEK TRACK ANO HEAD SELECT 

;READ SECTOR HEADER 

j READ COMMANO 

{READ SECTOR NO HEADER CHECK 



TTICSR 



177560 



jDRIVE READY BIT IN STATUS REG 

l STATUS AND RESET 

;MASK FOR COVER OPEN 

i HEADS UfiLOADED 

iMASK FOR CYLINDER ADDRESS 

j DONE SET OR ERROR SET BITS 



I KEYBOARD INPUT STATUS 



CZTKEA TK25 FRT END FUNC 01 MACRO M1200 
TK-25 REGISTER AND PACKET DEFINITIONS 



M3 
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SEQ 38 



1162 


177562 


1183 


177564 


1184 


177566 


1185 





TTIBFR 
TTOCSR 
TTOBFR 



177562 

177564 
177566 



I KEYBOARD DATA REGISTER 

j CONSOLE PRINTER STATUS REGISTER 

I CONSOLE PRINTER DATA REGISTER 



CZTKEA TK25 FRT END FUNC 01 
SPECIAL MACROS ANO OPDEFS. 

1187 
1188 
118? 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
120C 
1201 
1202 
1203 
1204 
1205 
1206 
120^ 
12j8 
1209 
1210 
1211 
121,? 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
12s0 
1241 
1242 
1243 



N3 

MACRO M1200 20-APR-84 08? 12 PAGE 30 



SEQ 39 



.SBTTL SPECIAL , (ACROS AND OPDEFS 



;SAVE GENERAL REGS 1 TO 5 



. MACRO 

JSR 

.ENDM 



SAVREG 
R5.REGSAV 



i * 

l MACRO TO FORCE AN ERROR 

!macro FORCERROR TAG.NOTSSR 

.NLIST 

.IIF NOF LISTALL, .NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSRCR5),R1 
.ENDC 

MOV FORCER, FORCER 
BNE TAG 
NLIST 

IIF NOF LISTALL, .LIST 
LIST 
ENDM 



MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
UILL EXTT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
FORCER TO 177777 
■> FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

MACRO rORCEXIT TAG 
NLI:»T 

IIF NDF LISTALL, .NLIST 
LIST 

MOV FORCER, FQRCFH 
BMI TAG 
.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENQM 

! MACRO TO INCREMENT ERROR COUNTS 

.MACRO NEXT.ERRNO 

.NLIST 

u; .IIF NDF LISTALL, .NLIST 

ERRNO-ERRNOtl 
Hi .IIF NDF LISTALL, .LIST 
.LIST 
.ENDM 

i ♦ 



jREAD TSSR 

j IS FORCER SET? (LEAVE C BIT ALONE) 
}BR IF YES 



iIS FORCF.H NEGATIVE? 
iBR IF YES 



B4 



CZTKEA TK25 FRT END FUNC 01 
SPECIAL MACROS AND OPDEFS % 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 000000 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 002144 000000 

1263 

1264 

1265 

1266 

1267 



MACRO M1200 20-APR-84 08:12 PAGE 30-1 



SEQ 40 



l MACRO TO PERFORM XOK 



.MACRO 

MOV 

BIC 

BIC 

BIS 

.ENDM 



XOR 

A.-CSP) 

B,(SP) 

A,B 

(SP)*,B 



A ( B 



EN-0 

.SBTTL FORCER 



t INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



I THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
I TO OBTAIN THE RESULTS DESCRIBED FOR EACH, 

I 

FORCER u i FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

I - BY THE MACRO "IFERROR"). AN ERROR NEED NOT « 
I - EXIST, JUST ASSUME ANO TYPE THE MESSAGE* 
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SEQ 41 



1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1260 
1201 
1262 
1263 
1254 
1265 
1266 
1257 
1266 
1269 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1296 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 



002146 
002150 
002152 
002154 
002156 
002160 
002162 
002164 
002166 
002170 
002172 
002174 
002176 
002200 
002202 
002204 
002206 
002246 
002250 
002252 
002254 
002256 
002260 
002262 
002264 
002266 
002432 
002576 
002716 



000000 
000000 
000000 
000000 
000224 
000200 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



oooooo 



.SBTTL GLOBAL DATA SECTION 

jTHE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
j IN MORE THAN ONE TEST, 
I -- 



I THE FOLLOWING DATA ARE SET FOR 
iSINGLE UNIT DEFAULTS (LISTED) 

EPRTSW:: 

UNITNjj 

QVP:: 

CSRADOR: j 

IVEC:: 

IPRIn 

TSTCNT;: 

LOOPCNT t i 

DEVCNTj: 

FATFLGj: 

INTRECVm 

BENBSUt: 

EXPO: j 

RECV:: 

ERNHXn 

ERRLOm 

RAMOATA: j 

RAHSIZt: 

RCVHIAOO:: 

RCVL0AOO;; 

COUNT:: 

DATA: : 

TSTFLAG:: 

TSTPTR:: 

PRMNOjj 

EXPMSG: s 

RECMSG: : 

THPBFR: j 

MESBFAu 



EACH UNIT AT INIT TIME. 
ARE IN THE DEFAULT P -TABLE, 



.WORD 





.WORD 





.WORD 





.W0R0 





.WORD 


224 


.WORD 


PRI04 


.WORD 





.W0R0 





.W0R0 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





,BLKW 


16. 


WORD 





.WORD 





.WORO 





.WORD 





.WORO 





.WORO 





,WORD 





.WORD 





.BLKB 


100. 


.BLKB 


100. 


.BLKB 


60, 


.WORD 






PRINT SWITCH 

UNIT ♦ UNDER TEST. 

QUICK VERIFY FLAG, 

AOORESS OF CSR FOR CURRENT DEVICE 

INTERRUPT VECTOR 

INTERRUPT PRIORITY. 

NUMBER OF TESTS RUN IN THIS PASS 

REMAINING ITERATION COLWT FOR TEST 

NUMBER OF DEVICE UNDER TEST 

SET IF FATAL ERTOR IS DETECTED IN TEST 

SET IF TAPE INTERRUPT WAS RECEIVED 

BUFFER ENABLE SWITCH SW 0-OFFU-GN 

EXPECTED RAM DATA FOR PRAf*>KT ROUTINE 

RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

HIGH AOORESS MEMORY ERROR 

LOW AOORESS MEMORY ERROR 

OATA REAO FROM RAM PACKET OR MESSAGE BUF AREA 

RAM DATA SIZE FOR PRAMPKT ROUTINE 

RECEIVED BUFFER HIGH AOORESS 

RECEIVED BUFFER LOW AOORESS * 

TEST COUNT PATTERN 

TEST DATA 

TEST FLAG WORD 

TSTBLK POINTER 

PRINT ROUTINE TEMP 

EXPECTED MESSAGE BUFFER DATA 

RECEIVEO MESSAGE BUFFER OATA 

TEMPORARt STORAGE FOR PRINT 

STORES ADDRESS OF MESSAGE BUFFER FQR ERR PRT 



CZTKEA TK25 FfH ENO FUNC 01 
TSTBLK - TEST DATA TABLE 
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SEQ 42 



1310 






1311 






1312 






1313 






1314 






1315 






1316 






1317 






1318 






1319 






1320 






1321 






1322 






1323 






1324 






1325 






1326 


002720 




1327 


002720 


000000 


1320 


C02722 


177777 


1329 


002724 


000001 


1330 


002726 


000002 


1331 


OOT 730 


000004 


*332 


00c 7^2 


000010 


1333 


002734 


000020 


1534 


002736 


000040 


1335 


002740 


000100 


1336 


002742 


000200 


1337 


002744 


000400 


1338 


002746 


001000 


1339 


002750 


002000 


1340 


002752 


004000 


1341 


002754 


010000 


1342 


002756 


020000 


1343 


002760 


040000 


1344 


002762 


100000 


1345 


002764 


177776 


1346 


002766 


177775 


1347 


002770 


177773 


1348 


002772 


177767 


1349 


002774 


177757 


1350 


002776 


177737 


1351 


003000 


177677 


1352 


003002 


177577 


1353 


003004 


177377 


1354 


003006 


176777 


1355 


003010 


175777 


1356 


003012 


173777 


1357 


003014 


167777 


1358 


003016 


157777 


1359 


003020 


137777 


1360 


003022 


077777 


1361 


003024 


125252 


1362 


CKJ3Q26 


052525 


1363 




003030 



.SBTTL TSTBLK - TEST DATA TABLE 

* 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
IN SEQUENCE THE DATA IS} 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



TSTBLK; 



TBLfcNQ". 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





177777 

BITO 

BIT1 

BIT2 

BIT3 

BIT4 

BITS 

BIT6 

BIT7 

BITO 

BIT9 

BIT10 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 

tCBITO 

tCBITl 

tCBIT2 

tCBIT3 

tCBIT4 

'CBIT5 

tCBIT6 

tCBIT7 

tCBITO 

tCBIT9 

tCBITIO 

tCBITll 

tCBIT12 

'CBIT13 

♦CBIT14 

teems 

125252 
053525 



i ALL ZEROS 

l ALL ONES 

j DATA FOR WALKING ONES 



i DATA FOR WALKING ZEROS 



i ALTERNATING ONES. ZEROS 

I ALTERNATING ONES* ZERO OPPOSITE FROM ABOVfc 



CZTKEA TK25 FRT END FUNC *1 
GLOBAL ENVIRONMENT STORAGE 
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SEQ 43 



1365 






1366 






1367 






1366 






3 369 


003030 


000000 100000 


1370 


003040 


000000 000000 


1371 






1372 






1373 






1374 


003060 


000000 


1375 






1376 


003062 


000000 


1*77 






1378 


003064 


000000 


1379 


003066 


000000 


1380 


003070 


000000 


1381 


003072 


000000 


1382 


003074 


000000 


1383 


003076 


000000 


1364 


003130 


000000 


1385 






1586 






1387 


003102 


000000 


1388 


003104 


002000 


1389 


003106 


000000 


1390 


003110 


000000 


1391 


003112 


000000 


1392 


003114 


000000 


1393 


003116 




1394 


003116 


000000 


1395 


003120 


000000 


1396 


003122 


000000 


1397 


003124 


000000 


1398 


003126 


177777 


1399 


003130 




1400 






1401 






1402 






1403 






1404 






1405 






1406 






1407 






1408 






1409 


003130 




1410 


003330 


000000 


1411 






1412 003332 


oooooo 



, SBTTL GLOBAL ENVIRONMENT STORAGE 



i STORAGE FOR DEVICE REGISTERS 

OOOOOO DUMMY: 0.100000,0,0 
OOOOOO 0,0,0,0,0,0,0,0 



DUFLG:: 

NOOEV:: 

TEMPI: 
TEMP2: 
XXCOMM 
FREE : : 
FRESIZ 
FREEHI 
KTFLG: 



KTENA8LE 

PST32W:: 

SIFLAG:: 

BADOAT:: 

GODAT : : 

LOOPFL:: 

CTAB:: 

CTABM:: 



CTABE:: 



.WORD 
, WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 























-1 



ERROR STATISTICS TABLE CI WORD PF*. 



DUMMY DEVICE REGISTERS... 
...FOR MULTI-UNIT CHECKOUT 



"DROPPED UNIT" FLAG. 
INHIBITS CODE IN "CLEAN-UP" , 
FLAG TO SAY NC DEVICE. 

SOME TEMP LOCATIONS. 

XXDP* COMM BLOCK POINTER. 

1ST FREE MEMORY ADDRESS... 

.. .ANO SIZE (IN WORDS). 

LAST WORD IN FREE SPACE 

KT11, MEM AVAIL FLAG - 

- .WORD ■ <24K OR NO KT - 

• NZ • >24K AND KT. 

SET BY TEIiT ROUTINES TO FLAG >28K UNOER TEST 

32W BLOCK ADDRESS FOR 32K START 

ACTUAL DATA 
EXPECTED DATA 

CONFIGURATION TABLES. 
CONFIG WORK. 



» END OF MEM TABLE. 
INIT), 64 WITS MAX: 





100000 

10XXXX 

160000 

160001 

14XXXX 



UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

WIT DROPPEO, NO" IDLE AT START 

UNIT DROPPED, ENCOUNTERED XXXX ERRORS 



ERTABL: 
ERTABE: 



BLKW 

WORD. 



64. 




SK1PT: .WORD 



il»SKIP SUBTEST q*NO SKIP QF SUBTEST 



CZTKEA TK25 FRT END FUNC $1 
GLOBAL TEXT MESSAGES 



1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 003334 
003334 
003334 
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SEQ 44 



124 



113 



055 



1428 
1429 
1430 
1431 
1432 
1433 



1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 



003342 
003342 
003342 



005400 
005420 
005440 
005445 
005447 
005455 
005457 
005465 
0O5467 
005474 
005501 
005505 
005511 
005516 
005523 
005550 
005555 
003542 

005550 

003605 
005656 

003675 
003716 
003756 
004015 



103 



132 



124 



005440 
005501 
125 
102 
125 
122 
116 
116 
102 
102 
125 
117 
102 
102 
102 
102 
102 
102 

124 

124 
040 
045 
045 
045 
045 



005445 
005505 
105 
111 
105 
115 
150 
102 
111 
111 
125 
106 
111 
111 
111 
111 
111 
111 

125 
123 
040 

101 
101 
101 
116 



005447 
003511 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 



.SBTTL GLOBAL TEXT MESSAGES 



♦ ♦ 



l THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
j MESSAGES, ANO ASCII INFORMATION THAT ARE USED IN 
j MORE THAN ONE TEST. 
I — 



j NAMES OF DEVICES SUPPORTED 
» - 

DEVTYP <TK-25> 
LiDVTYP:: 

.ASCIZ /TK-25/ 
.EVEN 



I TEST DESCRIPTION 

DESCRIPT <CZTKEA TK-25 FRT ENO FUNC *1> 
L$DESC:: 

.ASCIZ /CZTKEA TK-25 FRT ENO FUNC 01/ 
.FVEN 

; ♦ 

jBIT TO ASCII CONVERSION FOR TSSR REGISTER 



TSSRBIT: j 



1$ 

2$ 

31 

4$ 

5$ 

6$ 

71 

8$ 

9$ 

101 

111 

12$ 

13$ 

141 

15$ 

16$ 



SFIERR; 

SFHERR: 
NXR: 
NXRXj 
TSSX: 

FUSIi 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 



1$, 2$, 31, 4$. 5$, 61. 71,8$ 

9$, 10$ ,11 $.12$, 13$, 14 $.15$, 16$ 



WORD 
WORD 

SC 

BIE' 

SCE' 

RMR' 

NXH' 

NBA' 

BIT9' 

BIT8' 

SSR' 

OFL' 

BIT5' 

BIT4* 

BITS' 

BIT2' 

BIT1' 

BITO' 



'TSSR ERROR AFTER SOFT INIT' 

'TSSR ERROR AFTER BUS RESET' 

/ NON-EXISTANT DEVICE REGISTER/ 

/*A ADDRESS: *06/ 

/*A TSBA.TSSR EXP'D: *06*A ,*0«.*N/ 

/*A TSBA,TSSR REC'D: *06*A,*06/ 

/*N*A/ 



CZTKEA TK25 FRT END FUNC 01 
GLOBAL TEXT MESSAGES 
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SEQ 45 



1465 
1466 

1467 
1468 
1469 
1470 
1471 
1472 
1473 
14 74 
1475 
1476 
1477 
14 78 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 



004021 040 040 125 USIt , ASCIZ / UNEXPECTED INTERRUPT/ 

004050 040 040 111 NSI: .ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 

004113 045 116 045 FNOINTR: .ASCII /#N#A/ 

004117 040 040 116 NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 

004154 040 04a 111 IFAULT: .ASCIZ / INTERRUPT FAULT/ 

004176 045 101 040 INTX: .ASCIZ /#A CPU PC: #06#A TSBA: #06/ 

004233 040 040 042 NOINIT; .ASCIZ / "8US-INIT" DIDN'T INITIALIZE CONTROLLER/ 

004305 040 040 042 NSINITj .ASCIZ / "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

004355 040 040 042 BRINIT: .ASCIZ / "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

004425 000 NUL: .ASCIZ // 

004426 045 116 000 NULCR; .ASCIZ /#N/ 

004431 045 101 040 EXPGOT: .ASCIZ /#A EXP'D: #06#A, REC'D: #06/ 

004465 045 116 045 EXPGT2: .ASCIZ /#N#A EXP'D: #06#A, #06#N#A REC'D: #0#A, #06/ 

004541 045 101 040 DUAD12: .ASCIZ /#A REG(W) WRITTEN TO: #06#A REG(R) READj EXP'D: #06#A. REC'D: #06/ 

00464? 122 101 115 PKTRAM: : .ASCIZ ' RAM Contents Do Net Match Packet Sent « 

004711 040 040 103 SCME : .ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 

004/54 127 122 111 WRTMSG: .ASCIZ 'WRITE CHARACTERISTICS Failed' 

005011 124 123 123 WRTERRj .ASCIZ 'TSSR Incorrect After WRITE Ccmmand, More Bite Set Than SSR* 

005104 124 123 123 RDERR: .ASCIZ 'TSSR Incorrect After READ Command* More Bite Set Than SSR' 

.EVEN 



CZTKEA TK25 FRT END TUNC *1 
GLOBAL FRROR REPORT SECTION 



1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
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SEQ 46 



1499 



1500 
1501 



1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 



005176 
005176 
005176 
005176 
005202 
005206 
005212 
005214 
005216 
005222 
005226 
005226 
005226 



013746 
012746 
012746 
010600 
104415 
062706 
004737 



104423 



1513 



005230 
005232 
0032.34 
005236 
005242 
005242 
005246 
005252 
005254 
005256 
005262 



.SBTTL GLOBAL ERROR REPORT SECTION 



THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

CALLS THAT ARE USED IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



BGNMSG NXRERR 



003062 
003675 
000002 



000006 
005230 



NXRERR i 


* 






PRINTX 


♦NXRX.NOOEV 




MOV 


N00EV,-(SP) 




MOV 


*NXRX, -CSP) 




MOV 


♦2,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


♦6.SP 




JSR 


PCEXTEND 




ENOMSG 




L 10002 j 







iNON-EXISTANT DEVICE REGISTER 
jNODEV - NEXM ADDRESS. 



I PRINT EXTENSION IF REQUIRED 



TRAP 



CiMSG 



005 727 
000000 
001402 
004777 177770 

012746 004426 

012746 000001 

010600 

104415 

062706 000004 

000207 



j THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
i TO ANY OF THE ABOVE ERROR SIGNATURES. 



i - NO EXTENSION. 



EXTEND: 


TST 


CPC)» 


EXTA: 









BEQ 


1$ 




JSR 


PC.flEXTA 


1$: 


PRINTX 


♦NULCR 




MOV 


♦NULCR.-CSP) 




MOV 


♦ 1. -CSP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


*4,SP 




RTS 


PC 



j APPEND EXTENSION TEXT, 
j PRINT A BLANK LINE 



14 



CZTKEA TK25 FRT END FUNC $1 
PRITSSR - PRINT TSSR CONTENTS 



1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
.1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1554 
1535 
1536 
1537 



153^ 

1539 
1540 
1541 



1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 



005264 
005264 
005270 
C05272 
005272 
005274 
005300 
005304 
005306 
005310 
005314 
005316 
005322 
005324 
005324 
005330 
005334 
005336 
005340 
005344 
005346 
005352 
005354 
005360 
005364 
005366 
005370 
005372 
005374 
005376 
005400 
005402 
005404 
005412 
005414 
005416 
005420 
005420 
005424 



010104 

010446 
012746 
012746 

010600 
104414 
062706 
010400 
004737 
103410 

012746 
012746 
010600 
104415 
062 /06 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
000241 
006103 
103006 
011100 
112022 
001376 
112762 
005721 
000 763 
105042 

012746 
012746 
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>SBTTL PRITSSR - PRINT TSSR CONTENTS 

t 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



SEQ 47 



005736 
000002 



000006 

01T.. ".." 



00 

OOOOOl 



000004 

001476 

002576 
003400 



000054 177777 



002576 
QQ6127 



PRITSSR 


» 

"SAVREG 






MOV 


R1.R4 




PRINTB 


♦TSSRF0R,R4 




MOV 


R4,-(SP^ 




MOV 


*TSSRFOR,-(SP) 




MOV 


*2,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADO 


*6,SP 




MOV 


R4.R0 




JSR 


PC ♦CHKAMB 




BCS 


5$ 




PRINTX 


♦AMBTSSR 




MOV 


*AMBTSSR,-CSP) 




MOV 


♦l.-CSP) 




MOV 


SP.RO 




TRAP 


C.PNTX 




ADD 


♦4.SP 


5$: 


MOV 


R4.R3 




BIC 


♦HI ADDR ! FATERR } TERCLS 




BEQ 


20$ 




MOV 


♦TMPBFR.R2 




MOV 


♦TSSRBIT.R1 


10$: 


TST 


R3 




BFQ 


15$ 




CLC 






ROL 


R3 




BCC 


13$ 




MOV 


(Rl).RO 


11$: 


MOVB 


(R0)»,(R2)» 




BNE 


11$ 




MOVB 


♦ ' ..-KR2J 


13$: 


TST 


(R15* 




BR 


10$ 


15$ 5 


CLRB 


•(R2) 




PRINTX 


OTSSDEF.OTMPBFR 




MOV 


♦TMPBFR.-CSP) 




MOV 


♦TSSDEF.-CSP) 



I SAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
I PRINT THE CONTENTS OF TSSR 



j GET TSSR BACK f uR CHKAMB 
I ARE CONTENTS AMBIGUOUS ? 
j BRANCH IF NOT 
j SHOW CONTENTS ARE AMBIGUOUS 



» CONTENTS OF TSSR 
,R3 iCLEAR ALL MULTIPLE BIT FIELDS 
»N0 BITS ARE SET 
j TEMPORARY ASCII BUFFER 
■ASCII EQUIVALENT Of BITS 
iREMAINING BITS TO CONVERT 
I BRANCH WHEN ALL ARE DONE 
iCLEAR CARRY FOR SHIFT 
l SHIFT NEXT BIT TO CARRY 
■BRANCH IF BIT NOT SET 
iPOINTER TO BIT DEFINITION 
»MOVE ASCIZ TO BUFFER 
iMOVE ALL BITS 

I INSERT A COMMA TO TERMINATE 
j POINT TO NEXT DESCRIPTION 
iGET THE REMAINING BITS 
I TERMINATE THE LINE 
tPRINT THE BIT DEFINITIONS 



CZTKEA TK25 FRT END FUNC 01 
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SEQ 48 



1560 

1561 
1562 
1563 
1564 



1565 
1506 
1:567 
J "368 
1569 
1570 
15/1 
1572 



.157? 
1574 
1575 
1576 
1677 



1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 



15C6 
1587 
1588 
1559 



005450 
C05434 
00543c 

005440 

005444 
005446 
005452 
005456 
005456 
005460 
C05'464 
005470 
005472 
05<>4 
0053C0 
0055O£ 
00550*-* 
00*5.10 

oos'.ar? 

0C55.V* 

00552^ 
005522 
005524 
005530 
005534 
005536 
005540 
005544 
005552 
005554 
005560 
005562 
005562 
005564 
005570 
005574 
005576 
005600 
005604 
005610 
005612 
005620 
005624 
005626 
005634 
005642 
005642 
005646 
005652 
005654 
005656 
005662 
005670 

005672 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001421 
OO6203 
006203 
006203 
016303 

010346 
012746 
012746 
010600 
\ 04415 
062706 
012737 
010403 
042703 
001411 

010346 
012746 
012746 
010600 
104415 
062706 
022704 
001003 
012737 
005737 
001003 
012737 
013737 

012746 
012746 
010600 
104414 
062 706 
012737 
000207 



000002 



000006 



177761 
006220 



006017 
000002 



000006 
177717 

006560 



006060 
000002 



0O0O06 
C0CO31 

1763 #7 



005756 
000002 



000006 
100210 

005672 
002146 

005672 
002146 

005672 
00OO01 



000004 
005672 



20$: 



002170 



25$: 



002146 



002146 
005644 



30 C. 

31$: 



310$: 
32$: 



002146 



MOV 02,-CSP) 

MOV SP,RO 

TRAP C$PNTX 

ADD 06, SP 

MOV R4,R3 

BIC 0tCTERCLS,R3 

MOV TCOCOO(R3),R3 

PIUNTX 0TC0ASC,R3 

MOV R3.-CSP) 

MOV •TCOASC-CSP) 

MOV 02,-CSP) 

MOV SP.RO 

TRAP C$PNTX 

ADD 06, SP 

MOV R4.R3 

BIC *tCFATERR,R3 

3EQ 25$ 

ASR R3 

ASR R3 

ASR R3 

MOV TSFCOO(R3),R3 

PRINTX 0TFCASC.R3 

MOV R3.-CSP) 

MOV *TFCASC,.(SP) 

MOV 02,-CSP) 

MOV SP.RO 

TRAP C$PNTX 

ACO 06, SP 

MOV 025,,FATFLG 

MOV R4.R3 

BIC OtCHlADDR,R3 

BEQ 30$ 

PRINTX tIEXASC.RS 

MOV R3,~CSP) 

MOV OTFXASC-CSP) 

MOV •2>-CriP) 

MOV S°,RO 

:RAP CfPNTX 

/»DD 06 , SP 

CMP 4100210, W4 

bNE 31$ 

MOV 0EPRT3.EPRTSW 

1ST EPR1SU 

BNE 310$ 

MOV 0EPRT1,EPRTSU 

MOV EPRTSW,32$*2 

PRINTS 0EPRT1 

MOV OEPRT!,.(SP) 

MOV ♦l.-fSP) 

MOV SP.HO 

TRAP C$PNTB 

ADO 04, SP 

MOV OEPRTUEPRTSW 

RTS PC 



jGET THE TSSR CONTENTS 

j CLEAR ALL BUT TERMINATION 

j GET THE TERMINATION CODE MEANING 

j PRINT THE TERMINATION CODE 



j TSSR CONTENTS AGAIN 

t CLEAR ALl BUT FATAL TERMINATION 

I DON'T PRINT IF ZERO 



; ALINE TERMINATION CODE FOR INOEX 
I GET THE FATAL TERMINATION CODE 
j PRINT THE FATAL TERMINATION CODE 



jDROP UNIT AFTER THIS ERROR 

iGET TSSR CONTENTS 

I CLEAR ALL BUT EXTENOED ADDRESS 

j DON' T PRINT IF ZERO 

I PRINT THE EXTENDED ADDRESS BITS 



iCHTCK FOR MEDIA ERROR 

{BR, Ir PROBABLY NOT TAPE ERROK 

j "PROBABLY MCDTA RELETED ERROR - BAD TAPE 

t CHECK FOR THE SWITCH EMPTY 

;BR, IF SUTTCH 1^ NOT EMPTY 

tSET SUITCH TO DEFAULT 

i PL»T REAL SUITCHABLE MESSAGE IN PLACE 

» PR INT TK: ERROR MESSAGE 



iR'SET TO NORMAL ERROR POINTER 
j RETURN TO CALLER 



EPRT2? 



& 



:TKEA TK25 FRT END FUNC 01 
tITSSR - PRINT TSSR CONTENTS 



1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 

1606 

1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 



005672 
005672 
005736 
005756 
006017 
006060 
006127 
006156 

006220 
006240 
006263 
006311 
006333 
006353 
006435 
006504 
006530 



006560 
006570 
006624 
006635 
006701 



045 
045 
045 
045 
045 
045 
045 

006240 
116 
124 
124 
106 
122 
122 
125 
106 



006570 
111 
122 
102 
122 



116 
15.6 

11.6 
116 
116 
116 
116 

006263 
157 
145 
141 
165 
145 
145 
156 
141 



006624 
156 
145 
165 
145 
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b'EQ 49 



045 
045 
045 
045 
045 
045 
045 

006311 
162 
162 
160 
156 
143 
143 
162 
164 



006635 
164 

163 
163 
163 



EPRT3; 

EPRT1: 

T5SRF0R 

TEXASC 

TCOASC 

TFCASC 

T5SDEF 

AM6TSSR 

TCOCOD} 
It 



3* 

4* 
5$ 

6$ 
7$ 

8$ 



.ASCIZ '*N*\ *****REPLACE CONTROLLER*****?^ 



.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



fSFCODi .WORD 



1* 
2$ 
3$ 
4$ 



.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.EVEN 



.ASCI? 

.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



•KNKA 
'*N*A 
'*Nf<A 
'*N#A 

'#N#A 



TSSR - *06* 

Extended Address Bits - 406' 

Termination Class Code * #T' 

Fatal Termination Class Code 

TSSR Bits Set: *T' 

TSSR Contents Are Ambiguous' 



*T 



It, 2i, 3*. 41,5*. 6*. 7* ** 
'Normal Termination' 
'Termination Conditio 
1 Tape Status Alert' 
'Function Reject' 
'Recoverable Error - Tape 
'Recoverable Error - Tape 
'Unrecoverable Error' 
'Fatal Controller Error' 



Position One Record Down 
Was Not Moved 4 



11.2$, 31, 4$ 

'Internal Di agnostic Failure* 

' Reserved' 

'Bus Interface or Sanity Check Error' 

'Reserved' 



L4 
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SEQ 50 



1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 



1643 
1644 
1645 
1646 
164 V 
1648 
1649 
1650 



1651 
1652 
1653 
1654 



006712 
006712 
006716 
006720 
006724 
006726 
006730 
006732 
006734 
006736 
006740 
006740 
006742 
006744 
006750 
006754 
006756 
006760 
006764 
006766 
006770 
006772 
006776 
007000 
007002 
007004 
007004 
007006 
007010 
007014 
007020 
007022 
007024 
007030 
007032 
007034 
007036 
007036 
007042 
007046 
007050 
007052 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010OO4 
005001 
012402 

010246 
010146 
012746 
012746 
C10600 
104414 
062706 
005201 
020105 
002762 

012746 
012746 
010600 
104414 
062/OC 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 

♦ 

THIS ROUTINE PRINTS THE ADDRESS ANO CONTENTS OF A COMMAND PACKET. 

THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT} 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMANO PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



003102 



NOTEs R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



I SAVE THE REGISTERS 

I SAVE NO. OF WORDS IN PACKET 

1 ABOVE 28K UNDER TEST? 

iBR IF YES 

j SET HIGH ORDER ADDRESS TO 

j COPY HIGH CttDER ADDRESS 

i GET LOWER ADDRESS 

j SHIFT BIT 15 INTO C BIT 

j AND INTO HIGH ORDER. 

I PRINT PACKET ADDRESS 



007116 
000003 



000010 



020112 



007060 
000003 



000010 



007153 
000001 



000004 



PRIPKT: 


'SAVREG 






MOV 


R0.R5 




TST 


KTENABLE 




BNE 


10$ 




CLR 


R3 


10$: 


MOV 


R3.R1 




MOV 


R4.R0 




ROL 


RO 




ROL 


Rl 




PRINTB 


•PKTA0D,R1,R4 




MOV 


R4,-CSP) 




MOV 


Rl.-CSP) 




MOV 


•PKTADD, -(SP) 




MOV 


•3,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


♦10. SP 


15$: 


MOV 


R3.R0 




BEQ 


20$ 




MOV 


R4.R1 




JSR 


PCSETMAP 




MOV 


R0.R4 


20$: 


CLR 


Rl 


25$: 


MOV 


(R4)f ,R2 




PRINTB 


♦PKTFRM.R1.R2 




MOV 


R2.-CSP") 




MOV 


Rl.-(SP) 




MOV 


♦PKTFRM, -CSP) 




MOV 


•3,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADD 


010, SP 




INC 


Rl 




CMP 


R1,R5 




BLT 


25$ 




PRINTB 


♦PKTNEW 




MOV 


♦PKTNEW, -CSP) 




MOV 


♦l.-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


*4,SP 



I GET HIGH ORDER ADDRESS 

j BR IF NOT ABOVE 28K. 

I GET LOW ORDER ADDRESS 

j SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 

jGET RETURNED PAR6 ADDRESS BIAS 

j SAVE WORD NUMBER 

»GET PACKET CONTENTS 

j PRINT THE DATA 



j NEXT WORD NUMBER 

lOONE ALL PACKET WORDS? 

iLOOP TILL ALL DONE 

j JUST A COUPLE NEW LINES 



M4 
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SEQ 51 



1655 007056 


000207 








RTS 


1656 












1657 007060 


045 


116 


045 


PKTFRM: 


,ASCIZ 


1658 007116 


045 


116 


045 


PKTADD: 


.ASCIZ 


1659 












1660 007153 


045 


116 


045 


PKTNEW: 


.ASCIZ 


1661 










,EVEN 


1662 













PC 



{RETURN 



*N*A Pocket Word 0*D1*A - *06' 
*N*A Packet Address - *01*05' 

rfNUNWA » 



N4 



CZTKEA TK25 FRT END FUNC *1 MACRO M120O 
PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



1664 
1665 
1666 
1667 
1668 
1669 
16 70 
1671 
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.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



SEQ 52 



t ♦ 



;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
j THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



j INPUTS j 



1673 
1674 
1675 
1676 
1677 
1673 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 



1691 
1692 
1693 
1694 
1695 
1696 



007164 
007164 
0071^0 
007172 
007202 
007206 
007210 
007212 
007214 
007214 
007216 
007220 
007222 
OC 7226 
00 7232 
007234 
007236 
007242 
007244 

007246 



Rl 
R2 



OUTPUT; 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



010203 

012700 177400 
040001 
040002 
040003 

010346 

010146 

010246 

012746 007246 

012746 000004 

010600 

104414 

062706 000012 

010300 

000207 



045 



116 



045 



PRIBXOR; : 




SAVREG 




MOV 


R2,R3 


XOR 


R1.R3 


MOV 


*tC<377>,R0 


BIC 


R0.R1 


BIC 


R0,R2 


BIC 


R0.R3 


PRINTB 


♦XORBFOR. R2.R1 


MOV 


R3,-(SP) 


MOV 


Rl.-(SP) 


MOV 


R2.-CSP) 


MOV 


♦XORBFOR , ~(SP) 


MOV 


♦4.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADD 


♦12.SP 


MOV 


R3.R0 


RTS 


PC 


XORBFOR: 


.ASCIZ '*N*A 



j SAVE THE REGISTERS 
jEXPECTED DATA 
jFORM THE EXCLUSIVE 
}BYTE MASK 
tSAVE LOW BYTE RECV 
;SAVE LOW 8YTE EXPD 
;SAVE LOW BYTE XOR 
,R3 ; PRINT THE MESSAGE 



OR 



.EVEN 



jRO HAS XOR ON RETURN 
jRETUNN TO CALLER 

'*N*A EXPD; *03*A RECV; *03*A XOR; *03 



~ Hi* 



B5 
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SEQ 53 



1696 
1699 

1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1706 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1716 
1719 
1720 



1721 
1722 
1723 
1724 
1725 



007314 
007314 
007320 
007322 
007532 
007332 
007334 
007336 
007540 
007544 
007350 
007352 
007354 
007560 
007562 

007364 



.SBTTL PRIXOR - PRINT EXPO, RECV ANO XOR 



PRINT EXPECTED DATA* RECEIVED DATA. AND XOR OF THE TWO 
THIS ROUTIKC IS NORMALLY CALLED ONLY FOR PRINT ROUTINES, 



INPUTSj 



Rl 

R2 



OUTPUT: 



RO 



PRIXOR: : 



010203 



010546 

010146 

010246 

012746 007364 

012746 000004 

010600 

104414 

062706 000012 

010300 

000207 



045 



116 



045 XORFOR* 



SAVREG 

MOV 

XOR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

RTS 

.ASCIZ 

.EVEN 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



I SAVE THE REGISTERS 
R2.R3 iEXPECTED DATA 

R1.R3 iFORM THE EXCLUSIVE OR 

♦X0RF0R,R2,R1 I R3 jPRINT THE MESSAGE 
R3.-CSP) 
Rl.-CSP) 
R2.-(SP) 
♦XORFOR.-CSP) 
♦4,'CSP) 
SP.RO 
CIPNTB 
♦12. SP 

R3.R0 |R0 MAS 

PC j RE TURN 



XOR ON RETURN 
TO CALLER 



*N*A £XPD? *Q6*A RECVi *Q6*A XOR; #06' 



mm tk mi i» on E « as AsmB» E r APR - 84 08,ia 
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SEQ 54 



1727 
1726 
1729 

1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
175? 
1753 
1754 
1755 
1756 
1757 
1756 
1759 
1760 
1761 



1762 
1763 
1764 
1765 
1766 
1767 
1766 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 



.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII ANO PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS; 



RO 
Rl 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



007432 
007432 
007436 



PRIEQU: 



000207 



SAVREG 
RTS PC 



I SAVE THE REGISTERS 
jRETURN TO CALLER 



007440 
007440 
007444 
007444 
007446 
007452 
007456 
007460 
007462 
007466 

007470 



.SBTTL PRIRAM - PRINT RAM AOORESS 



PRINT CONTROLLER RAM AOORESS. 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 



INPUTS} 



PRIRAM j 



010446 

012746 007470 

012746 000002 

010600 

104414 

062706 000006 

000207 

045 116 



R4 



SAVREG 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 

RTS 



RAM ADDRESS 



4*AMF0R,R4 

R4.-CSP) 

•WAMFOR.'CSP) 

♦2,-CSP) 

SP.RO 

CIPNTB 

♦6.SP 

PC 



iSAVE R1-R5 UNTIL NEXT RETURN 
I PRINT RAM ADDRESS TN ERROR 



l RE TURN 



045 RAMFOR; .ASCI? 
.EVEN 



#N#A CONTROLLER RAM ADDRESS - #06 



.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY AOORESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FRQM PRINT ROUTINES* 

IMPLICIT INPUTS 

ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOW ORDER ADDRESS 



CZTKEA TK25 FRT END FUNC *1 MACRO M1200 
PRIADD ~ PRINT MEMORY ERROR ADDRESS 
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SEQ 55 



1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 



1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1793 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1311 
1812 
1813 



1814 
1815 

1816 
1817 
1818 
1819 
1820 



007532 
007532 
007536 
007542 
007VI6 
007550 
007552 
007554 
007554 
007556 
007560 
007564 
007570 
007572 
007574 
007600 

007602 



007646 
007646 
007652 
007656 
007662 
007664 
007666 
007670 
007670 
007672 
007674 
007700 
007704 
007706 
007710 
007714 

007716 



013700 
013701 
010102 
006101 
006100 

010246 
C10046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



I 



PRIADD: 



002202 
002204 



007602 
000003 



000010 
116 



045 PRIAO: 



SAVREG 




MOV 


ERRHI.RO 


NOV 


ERRLO, Rl 


MOV 


R1.R2 


ROL 


Rl 


ROL 


RO 


PRINTB 


♦PRIA0.RO.R2 


MOV 


R2.-CSP) 


MOV 


RO.-CSP) 


MOV 


♦PRIAO, ~CSP) 


MOV 


♦3,-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADO 


♦10, SP 


RTS 


PC 


.ASCIZ 


'*N*A MEMORY 


.EVEN 





jSAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH AOORESSS 

tGET LOW ADORESS 

t COPY LOW ADDRESS 

iSHIFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

I PRINT MEMORY ADDRESS IN ERROR 



iRETURN 
ERROR ADDRESS - *01*05 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADORESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 



IMPLICIT INPUTS 



ERRHI 

ERRLO 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



PRITADD: 



002202 
002204 



007^16 
000003 



000010 
116 



045 PRITO? 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 

.EVEN 



ERRHI.RO 

ERRLO, Rl 

R1.R2 

Rl 

RO 

♦PRITO, R0,R2 

R2.-CSP) 

RO,-(SP) 

♦PRITO, -CSP) 

♦3,-CSP) 

SP.RO 

C*PNTB 

♦10, SP 

PC 



jSAVE R1-R5 UNTIL NEXT RETURN 

jGET HIGH ADORESSS 

iGET LOW ADDRESS 

i COPY LOW ADDRESS 

jSHIFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

iPRINT MEMORY ADDRESS IN ERROR 



i RE TURN 



*N*A MEMORY TEST ADDRESS * *Qi*05' 



C2TKEA TK25 FRT END TUNC *1 MACRO M120O 20-APR-84 08$ 12 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



Lb 
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SEQ 56 



1822 
1823 
1824 
1825 
1826 
1827 
1628 
1829 
1830 
1851 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
18*7 
18<»8 
18*9 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1659 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 



007760 
007760 
007764 
007772 
OlOOOO 
010002 
010OO4 
010010 
010012 
010016 
010022 
010030 
010054 
010040 
010O44 
010046 
010046 
010052 
010054 
010060 
010062 
010066 



012737 
012737 
005703 
100403 
C10337 
000407 
042703 
U0337 

152737 

012704 
010465 
004737 
103420 

012727 
000000 

013727 
000000 
005367 
Q01375 



.SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT; 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - IS FORWARD 

BIT15 • 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO 



THE CONTENTS OF R4 IS MOVED TO RO 



IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE:: 



000764 010150 
140010 010140 



010142 

100000 

010142 

000400 010140 

010140 

177776 

016744 



000250 
002116 
177772 



10*: 
15* : 



SAVREG 




MOV 


♦500.,SDELAY 


MOV 


♦140010,801 


TST 


R3 


BMI 


51 


MOV 


R3.90I 


BR 


10$ 


BIC 


♦6IU5.R3 


MOV 


R3.90I 


BIS 


*6IT8,80$ 


MOV 


«80$,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


20$ 


DELAY 


250 


MOV 


♦250, (PC)* 


.WORD 





MOV 


L$DLY,(PC)f 


.WORD 





DEC 


-6(PC) 


BNE 


.-4 



,SAVE THE GENERAL REGISTERS 

I SET UP DELAY 

I SET K*> COftlAND. SPACE FORWARD 

iCHECK FOR DIRECTION 

iBR. IF REVERSE INDICATED 

lLOAD UP NUMBER OF RECORDS TO SPACE 

I GO DO COMMAND 

»CLEAR DIRECTION BIT 

lLOAD UP NUMBER OF RECORDS TO SPACE 

I SET REVERSE BIT IN COMMAND PACKET 

I SET UP R4 WITH PACKET ADDRESS 

i SEND OUT COMMAND 

iWAIT FOR SSR 

j BR, IF SSR IS SET ANO OK 

lOELAT ABOUT .25 SECONDS 



F5 



CZTKEA TK25 FRT END TUNC *1 MACRO M1200 
SPACE - SPACE RECORDS (FORWARD AND f 





010070 


005367 


177756 




010074 


001367 




1873 


010076 


005337 


010150 


1874 


010102 


001356 




1875 


010104 


000411 




1876 


010106 


016501 


000000 


1877 


010112 


012702 


000200 


1878 


010116 


020201 




1879 


010120 


001401 




1880 


010122 


000402 




1881 


010124 


000261 




1882 


010126 


00O401 




1883 


010130 


000241 




1884 


010132 






1885 


010132 


010400 




1886 


010134 


000207 





200 


20-APR-84 


08:12 PAGE 42-1 


ERSE 


) COMMAND 






DEC 


-22CPC) 




BNE 


.-20 




DEC 


SDELAY 




BNE 


15$ 




BR 


60$ 


20$: 


MOV 


TSSR(R5),R1 




MOV 


4SSR.R2 


25$: 


CMP 


R2.R1 




BEQ 


40$ 




BR 


60$ 


40$: 


SEC 






BR 


70$ 


60$: 


CLC 




70$: 








MOV 


R4.R0 




RTS 


PC 



SEQ 57 



I BUMP DELAY COUNTER DOWN 

»BR, IF MORE DELAY 

j BR IF TROUBLE CARRY - CLEAR 

jRFAO TSSR 

I SET UP EXPECTED 

I ARE THEY OK 

j BR, IF EQUAL - OK 

i TROUBLE EXIT 

I SET CARRY NO TROUBLE 

jEXIT 

j CARRY CLEAR - ERROR 



,PASS PACKET 
j RETURN 



ADDRESS 



G5 



CZTKEA TK25 FRT END RJNC *1 MACRO M1200 20-APR-84 08s 12 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



PAGE 43 



SEQ 58 



1888 

1889 

1890 

189). 

189£ 

1894 010136 

1896 

1S97 

1898 010140 

1899 

1900 01014? 

1901 01C144 

1902 010146 

1903 010150 
1904 



I 



000000 

000000 
000000 
000000 
000000 



t PACKET FOR SPACE COMMAND 

.BLKB 10-<\-TUV2A£7> 

i 

j COMMAND UORD 

80$: .WORD 

tNUM6ER OF RECORDS TO BE SPACED OVER WORD 

90$: .WORD 

.WORD 

.WORD 
SDELAY: .WORD , DELAY COUNTER 

.EVEN 



H5 



CZTKEA TK25 FRF END FUNC #1 MACRO M1200 
WRTCHR * WRITE CHARACTERISTICS COMMAND 



1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
192 1 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
3 929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
i96i 
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% SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



SEQ 59 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT: 



R4 ADDRESS Of PACKET FROM TEST 
R5 FIRST DEVICE JNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT : 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMANO OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS; 

BEN6SW - BUFFER ENABLE SWITCH ON OR OFF 



010152 
010152 
010156 
010162 
010166 
010172 
010174 
010176 
010202 
010206 
010212 
010214 
010220 
010222 
010224 
C 10226 
010232 
010234 
010240 
010P42 
010244 
010246 
010252 



SIDE EFFECTS; 



WRTCHR j 



00503/ 
010465 
004737 
103401 
0OO423 
016501 
012 702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
0OO401 
000241 
016500 
000207 



002174 
177V76 
017060 



000000 
000200 
000100 

000100 



000010 
002716 

000000 





SAVREG 






CLR 


BENBSW t 


10$: 


MOV 


R4.TSDBCR5) i 




JSR 


PC.CHKTSSR i 




BCS 


20$ » 




BR 


60$ i 


20$: 


MOV 


TSSRCR5),R1 , 




MOV 


0SSR.R2 j 




BIT 


♦0FL.R1 , 




BEQ 


25$ , 




BIS 


♦0FL.R2 i 


25$: 


CMP 


R2.R1 , 




BEQ 


40$ | 




BR 


60$ i 


40$: 


ADD 


*B.,R4 j 




MOV 


(R4),R3 | 




MOV 


R3.MESBFA i 




SEC 






BR 


70$ ! 


60$; 


CLC 




70$ i 


MOV 


TSSRCR5),R0 ! 




RTS 


PC t 



SAVE THE GENERAL REGISTERS 

CLEAR BUFFER ENABLE SWITCH 

SENO OUT COMMAND 

WAIT FOR SSR 

BR, IF SSR IS SET ANO OK 

BR IF TROUBLE CARRY ■ CLEAR 

READ TSSR 

SET UP EXPECTED 

WAS OFF LINE SET IN TSSR 

BR, IF NO OFL SET 

MAKE THEM LOOK ALIKE 

ARE THEY OK 

BR, IF EQUAL « OK 

TROUBLE EXIT 

POINT TO WPT CHARA DATA PACKET 

GET ADDRESS OF MESSAGE BUFFER 

STORE FOR PRINT ROUTINES 

SET CARRY NO TROUBLE 

EXIT 

CARRY CLEAR - ERROR 

RETURN TSSR CONTENTS 

RETURN 



15 



CZTKEA TK25 FRT END FUNC *1 MACRO M1200 
REWIND - POSITION TAPE (REWIND) COMMAND 



1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
19^7 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
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.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 



SEQ 60 



1999 
20O0 
2001 
2002 
2003 
20O4 
2005 
2007 
2009 
2010 
2011 



010254 
010254 
010260 
010264 
010270 
010274 
010300 
010302 
010302 
010306 
010310 
010314 
010316 
0.0322 
010324 
010330 
010332 
010334 
010336 
010340 
010342 



010344 
010350 
010350 
010352 



THIS ROUTINE WILL REWINO THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WHITE CHARACTERISTICS 

JSR PC. REWIND 



INPUT: 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIQUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



012704 
010465 
012703 
004737 
103417 

012727 

000000 
013727 
OOOOOO 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
OOOOOO 



Oi.0350 
177776 
000550 
03 6744 



000372 
002116 
177772 

177756 



REWINO: 



10$ 



20$ 



RWPACKi 



SAVPSG 




MOV 


♦3WPACK.R4 


MOV 


R4 TSDBCR5) 


MOV 


0360. ,R3 


JSR 


PC.WAITF 


BCS 


20$ 


DELAY 


250. 


MO*' 


♦250. .(PC)* 


.WORD 





MOV 


LtDLY.(PC)* 


.WORD 





DEC 


-6(PC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


DEC 


R3 


BNE 


10$ 


CLC 




MOV 


R4.R0 


RTS 


PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

iGET PACKET ADDRESS 

j SEND PACKET ADDRESS TO EXECUTE 

t ENOUGH TIME FOR 2400' REEL TO REWIND 

iWAIT FOR SSR TO SET 

jLEAVE WHEN SSR IS SET 

jWAIT FOR ,25 SECONDS 



.BLKB 10-<. -TUV2A67> 



.WORD 
.WORD 



102010 




I BUMP COUNTER DOWN 

j KEEP GOING 

iCLEAR CARRY TO SET ERROR 

i PASS THE PACKET ADDRESS 

iRtTURN 



jPOSTION COMMAND (REWIND) 
iNQT USED 



J5 



CZTKEA TK25 FRT END TUNC *l MACRO M1200 
CKRAM - COMPARE RAM TO I/O PACKET 



2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
204 7 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
20 r j7 
2050 
2059 
2060 
2061 
2062 
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.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



SEQ 61 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT ; 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT : 



CARRY 



SET - R4M MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMOATA JS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 



2060 



010354 
010354 
010360 
010364 
010370 
010372 
010376 
010402 
01<"*406 
010412 
010416 
010420 
010422 
010424 
010426 
010132 
010434 
0104*6 
010440 
010442 
0104 44 
01044b 
010454 



SIDE EFFECTS: 



CKRAM: 



012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
OC5202 
020227 
00576V 
005703 
001402 
000241 

000401 
000261 
012737 
000207 



002206 
000020 

017060 
017060 
177777 
017060 
177776 



000027 



000010 002246 





SAVREG 






MOV 


*RAMDATA,R1 i 




MOV 


♦RMPKTBEG.R2 i 




CLR 


R3 i 




JSR 


PC.CHKTSSR i 


10$: 


JSR 


PC.CHKTSSR j 




hove 


R2.TSDBHCR5) , 




JSR 


PC.CHKTSSR ; 




M0VB 


TSBALCR5),(Rn , 




CMPB 


CR1)»,CR4)* » 




BEQ 


20$ 4 




INC 


R3 i 


20$: 


INC 


R2 ; 




CMP 


R2.GRMPKTEND i 




BLE 


10$ , 




T5T 


R3 , 




BEQ 


30$ i 




CLC 






BR 


50$ j 


SOti 


SEC 




505: 


hOV 


$8,, RAMSI* s 




RTS 


PC i 



SAVE THE GENERAL REGISTERS 

AODRESS TO SAVE THE RAM DATA 

BYTE ADORESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

REAO THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

REACHED ENO YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CAFHY TO SHOW ERROR 

AW EXIT 

SHOW GOOD COMPARE 
I SETUP RAMSIZ FOR PRAMPKT ROUTINE 
tRETURN 



&» 



l<5 



TK25 FRY END TUNC *1 
READ AND DISPLAY SELECTED RAM 
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SEQ 62 



2066 
206 7 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
20 7 7 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 



2103 
2104 
2105 
2106 
2107 
2100 



Z 109 



010456 
010456 
010462 
010466 
010472 
010476 
010502 
010506 
010512 
010516 
010522 
010526 
010530 
010534 
010540 
010542 
010546 
010546 
010550 
010552 
010556 
010562 
010561 
010566 
010572 
010576 
010602 
010604 
010606 
010612 
010612 
010614 
010620 
010624 
010626 
010630 
010634 



013705 
012701 
013702 
013703 
004737 
110265 
004737 
116521 
062702 
077313 
013704 
013702 
060204 
162704 

010446 
010246 
012746 
012746 
010600 
104415 
062706 
012701 
013703 
005004 
112104 
042704 

010446 
012746 
012746 
010600 
104415 
062 706 
07731b 



010642 
002206 
010640 
002246 
017060 
177777 
017060 
177776 
000001 

002246 

010640 

000001 



010644 
000003 



000010 
002206 
002246 



177400 



010715 
000002 



000006 



,SBTTL RAMER - READ AND DISPLAY SELECTED RAM 



; ♦ 



ROUTINE TO READ THE SELECTED RAM LOCATIONS 

INPUT: 

R5 FIRST DEVICE UNIBUS ADDRESS 
; CONSOLE WILL ALSO BE PRINTED TO 

; IMPLICIT OUTPUT: 

\ THE TABLE RAMDATA IS TILLED WITH THE 

DATA HELD IN RAM. 

SIDE EFFECTS: 



RAMER:: 



10$: 



!0$; 



301: 



SAVREG 




MOV 


RAMR5H.R5 


MOV 


♦RAMDATA, Rl 


MOV 


RAMHLD.R2 


MOV 


RAMSIZ.R3 


JSR 


PCCHKTSSR 


MOVB 


R2,TSD6HCR5) 


JSR 


PCCHKTSSR 


MOVB 


TSBAL(R5) t CRl)f 


ADO 


#1.R2 


soe 


R3.10I 


MOV 


RAMSIZ.R4 


MOV 


RAMHLD.R2 


ADD 


R2,R4 


sue 


♦l,R4 


PRINTX 


♦RAMI0P.R2.R4 


MOV 


R4.-CSP) 


MOV 


12.-CSP) 


MOV 


♦RAMIOP.-CSP) 


MOV 


03,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADO 


*10,SP 


MOV 


*RAM0ATA,R1 


MOV 


RAMSIZ.R3 


CLR 


R4 


MOVB 


CR1)».R4 


BIC 


#177400, R4 


PRINTX 


♦RAMPD.R4 


MOV 


R4.-CSP) 


MOV 


dflAMPD.-CSP) 


MOV 


♦2, -CSP) 


MOV 


SP,RO 


TRAP 


CiPNTX 


ADD 


*6,SP 


SOB 


R3.30* 



I SAVE THE GENERAL REGISTERS 

iRESET R5 TO FIRST DEVICE REGISTER 

I ADDRESS TO SAVE THE RAM DATA 

jBYTE ADDRESS OF THE FIRST RAM DATA 

j SET THE SIZE OF THE READ UP 

lUAIT FOR THE SSR TO SET 

I SELECT NEXT RAM ADDRESS 

I WAIT FOR SSR TO SET 

t READ THE RAM DATA 

} ADDRESS OF THE NEXT RAM LOCATION 

lNU«ER OF LOCATIONS COUNTER 

;GET THE RAM SIZE 

I GET THE STARTING RAM ADDRESS 

I CALCULATE THE END ADDRESS 

iCORRECT VALUE OF PRINTOUT 

j RAM ADDRESS - 10 - 17, ETC, 



i ADDRESS OF WHERE RAM DATA IS 

}THE SIZE OF THE RAM FIELD READ 

iNO EXTRA DATA LEFT OVER 

jPICK UP BYTE OF RAM DATA 

iGET RID OF SIGN EXTEND 

i "010 211 111 222 377 000 123 134 ETC, 



j LOOP UNTIL ALL PUNTED 



L5 



CZTKEA TK25 KRT END FUNC frl MACRO M1200 
RAMER - READ AND DISPLAY SELECTED RAM 



20-APR-84 08 ; 12 PAGE 47-1 



SEQ 63 



2110 010636 


00020/ 






50$: 


RTS 


PC 


2111 














2112 010640 


000000 






RAMHLD: 


.WORD 





2113 010642 


000000 






R.WSHs 


.WORD 





2114 010644 


045 


116 


045 


RAMIOP: 


.ASCIZ 


'#N*A Ram 


2115 010715 


045 


101 


040 


RAMPD! 


.ASCIZ 


'*A ¥03*A 


2116 










. EVEN 




2117 















j RETURN 

,RAM ADDR HOLDER 1ST ADDRESS 
I HOLDS R5 FOR LATER 
Address (Octal) - *03*A - *03*N' 



M5 



CZTKEA TK25 FRT END FUNIC #1 MACRO M1200 20-APR-84 08; 12 PAGE 48 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 64 



2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
.?133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
214> 
2144 
?145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 



010730 
010730 
010754 
010740 
010744 
010746 
010752 
010756 
010762 
010766 
010772 
010774 
010776 
011000 
011002 
011010 
011014 
011016 
011020 
011022 
011024 
011026 
011030 



012701 
012702 
005003 
004737 
004 737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
012737 
020227 
003756 
00'3703 
001402 
000241 
000401 
000261 
000207 



002206 
000167 

017060 
017060 
177777 
017060 
177776 



000010 
000176 



002246 



,SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 

ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT i 



5 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT; 



CARRY 



J 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



i 



THE TABLE RAMDATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



i 



CKRAM2: 


SAVREG 






MOV 


*«AM0ATA,R1 , 




MOV 


*RMCHBEG,R2 , 




CLR 


R3 , 




JSR 


PCCHKTSSR i 


10$: 


JSR 


PCCHKTSSR i 




MOVB 


R2.TSDBHCR5) \ 




JSR 


PCCHKTSSR i 




MOVB 


TSBALCR5),CR1) i 




CMPB 


(R1)+»(R4)» j 




BEQ 


20$ j 




INC 


R3 i 


20$: 


INC 


R2 , 




MOV 


♦8., RAMSIZ » 




CMP 


R2,*RMCHEND-2 i 




BLE 


10$ ; 


27$: 


TST 


R3 | 




BEQ 


30$ i 




CLC 






BR 


50$ ! 


30*: 


SEC 




5^$; 


RTS 


pc ! 



{SAVE THE GENERAL REGISTERS 

, ADDRESS TO SAVE THE RAM DATA 

j BYTE ADDRESS OF FIRST RAM DATA 

j CLEAR THE ERROR FLAG 

{WAIT FOR SSR 

j WAIT FOR SSR TO SET 

j SELECT NEXT RAM ADDRESS 

iWAIT FOR SSR TO SET 

jREAD THE RAM DATA 

I COWARE TO EXPECTED 

;BRANCH IF OK 

i SET ERROR FLAG 

t ADDRESS OF NEXT RAM LOCATION 

» ASSUME NORMAL NOT SET 

l REACHED END YET ? 

, BRANCH TILL ALL READ 

j WAS AN ERROR FOUND 7 

j BRANCH IF NOT 

j CLEAR CARRY TO SHOW ERROR 

{AND EXIT 

{SHOW GOOD COMPARE 

{RETURN 



N 



5 



CZTKEA TK25 FRT END FUNC #1 MACRO M1200 20-APR-84 08:12 
CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
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SEQ 65 



2171 
2172 
♦?173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2?? 1 
2222 
2223 
2224 

2225 



011032 
011032 
011036 
011042 
011046 
011052 
011054 
011060 
011062 
011064 
011066 
011070 
011074 
OillOO 
011102 
011104 
011106 
011112 
011116 
011120 
011126 
011130 
011134 
011136 
011140 
011142 
011144 
011146 
011150 



010037 
010137 
005737 
001403 
004737 
010001 
O050O4 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005 703 
001402 
000241 
000401 
000261 
000207 



002250 
002252 
003102 

020112 



002266 
002432 



00OO02 
000014 

000200 

000016 



000012 



.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



i ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
; BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
; ERROR PRINT ROUTINES. 



? INPUT: 



OUTPUT: 

J 



RO 
Rl 
R2 



RECV MESSAGE SUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: 



10* 



15* 



25$ 



501 



55 i j 
601: 



SAVREG 
MOV 
MOV 
TST 
BEQ 
JSh 
MOV 
'„LR 
CLR 
MOV 
MOV 
MOV 
CMP 
BEQ 
INC 
ADD 
CMP 
BLE 
BIT 
BEQ 
CMP 
BLE 
TST 
BEQ 
"LC 

SEC 
RTS 



RO, RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

101 

PC.SETMAP 

RO.Ri 

R4 

R3 

R2 R5 

(R2),EXPMSGCR4) 

(Rn,RECMSG(R4) 

CR2)+.CR1)+ 

«3 

02.R4 

R4,014 

15$ 

*X2,EXTF,XST2(R5 

5u* 

R4.016 

15$ 

R3 

55$ 

60$ 
PC 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE RECV HIGH ADDRESS 
SAVE RECV LOW ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETLHN ADDRESS BIASED TO PAR6 IN RO 
GET RETURNED ADDRESS BIASED TO PAR6 
WORD IN BUFFFR 
CLEAR ERROR SEEN FLAG 
GET EXPD BUFFER ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV rOR ERROR REPORT 
EXPD EQUAL RECV? 
BR IF YES 

SET ERROR SEEN FLAG 
POINT TO NEXT WORD ADDRESS 
DONE FIRST 7 WORDS? 
BR IF NO 
)iIS EXTENDED FEATURES SET IN EXPD? 
BR IF NO 

DONE LXTENOED FEATURES WORD? 
BR IF NO 
ANY ERROPS SEEN? 
BR IF NO 
SET FAILURE 

SET SUCC&SS 
RETURN 



B6 



CZTKEA TK?5 FRT END FUNC *1 ^ACRO M1200 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 
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SEQ 66 



22*7 










•SBTTL 


CKM5G2 - COMPARE E V PD RECV MESSAGE BUFFERS 


2228 








1 ♦ 






2229 














2230 








»R0UTINE TO COMPARE AN EXPECTED ANO RECEIVED MESSAGE 


2231 








l BUFFER 


. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 


2232 








1 ERROR 


PRINT ROUTINES. 


2233 














2234 








1 INPUT? 






2235 














2236 










RO 


RECV MESSAGE BUFFER hXGH ORDER ADDRESS 


2237 










Rl 


RECV MESSAGE BUFFER LOW ORDER ADDRESS 


2238 










R2 


EXPD MESSAGE BUFFER ADDRESS 


2239 










R3 


NU1BER OF BYTES TO COMPARE 


2240 














2241 








5 OUTPUT 


» 




2242 














2243 










CARRY 


SET - MESSAGE BUFFERS MATCH 


2244 
2245 
2246 












CLR - MESSAGE BUFFERS DON' T MATCH 








j IMPLICIT OUTPUT: 


224 7 














2248 










EXPMSG 


BUFFER IS SET TO EXPO DATA 


2249 










RECHSG 


BUFFER IS SET TO RECV DATA 


2250 










RCVHIADO SET TO HIGH OROER AOORESS OF RECV 


2251 
2252 
2253 










RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 








] . 






2254 


011152 






CKMSG2* 


I 




2255 


011152 








SAVREG 


iSAVE R1-R5 UNTIL NEXT RETURN 


22^6 


011156 


020327 


000144 




CMP 


R3,#RECMSG-EXPMSG|IW0 IS COUNT ABOVE MAX ALLOWED? 


2257 


011162 


003412 






BLC 


51 i860 BR IF NO 


2258 


011164 


012703 


000144 




MOV 


0^t CMSG.EXPMSG.R3i MO 


2259 


011170 








PRINYF 


♦OEBUGMSG jBSO 




011170 


012746 


011304 




MOV 


♦OEBUGMSG, -(SP) 




011174 


012746 


000001 




MOV 


♦i.(SP) 




011200 


010600 






MOV 


SP.RO 




011202 


104417 






TRAP 


CIPNTF 




011204 


062706 


000004 




ADO 


♦4.SP 


2260 


011210 


010037 


002250 


5$: 


MOV 


RO.RCVHIAOO i SAVE RECV HIGH ADORESS 


2261 


011214 


010137 


002252 




MOV 


Rl.RCVLOAD iSAVE RECV LOW ADORESS 


2262 


011220 


005737 


003102 




TST 


KTENABLE i TESTING ABOVE 28K7 


2263 


011224 


001403 






BEQ 


101 |BR IF NO 


2264 


011226 


OC4737 


020112 




JSR 


PC.SETMAP iRETURN ADORESS BIASED TO PAR6 IN RO 


2265 


011232 


010001 






MOV 


R0.R1 ,G£T RETURNEO ADORESS BIASED 1Q PAR6 


2266 


0U234 


005004 




101: 


CLR 


R4 (WORD IN BUFFER 


2267 


011236 


005005 






CLR 


R5 i CLEAR ERROR SEEN FLAG 


2268 


011240 


1112M 


002266 


I5ti 


MOVB 


(R2).EXPMSG(R4) iSAVE EXPO FOR ERROR REPORT 


2269 


0U244 


111164 


002432 




MOVB 


(Rn,RECMSG(R4) iSAVE RECV FOR ERROR REPORT 


2270 


011250 


122221 






CMPB 


(R2)»,(RU* lEXPO EQUAL RECV? 


2271 


011252 


001401 






BEQ 


25* iBR IF YES 


2272 


011254 


005205 






INC 


R5 iSET ERROR SEEN FLAG 


2273 


011256 


062704 


00000! 


25*; 


ADD 


♦1.R4 iPOINT TO NEXT BYTE 


2274 


011262 


020403 






CMP 


R4 ( R3 iDONE ALL BYTES? 


2275 


011264 


002001 






BGE 


50* iBR IF YES 


2276 


011266 


000764 






BR 


15* ,00 NEXT BVTE 


22 7 7 


011270 


005705 




50 ti 


TST 


R5 ,ANY ERRORS SE.EN? 


22 7Q 


011272 


00X403 






BEQ 


551 iBR IF NO 



C6 
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SEQ 67 



2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 



011274 
011276 
011300 
011302 

011304 

011374 
011405 
011440 
011473 



000241 
000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 

105 



117 
045 
124 
056 
123 



551 1 
601: 



CLC 
BR 
SEC 
RTS 



DEBUGMSGs 

FERCMj .ASCII 



ERCM: 
SIMSG: 

TINERR; 



.ASCIZ 
•ASCIZ 

.ASCIZ 
.EVEN 



601 

PC 



iSET FAILURE 

iSET SUCCESS 
i RE TURN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-* 1 990 
/#N*A ***/ 

/ TSSR ERROR COOE REC'D - / 

/ AFTER DOING SOFT INIT/ 

/TEST j „./ 



D6 

tm& ^^WPfxHAfcW MESsBfiPBuWiSS 20-APR-8. 08,12 PAGE 51 

2291 
2292 



SEG 66 



2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 

2306 
2309 
2310 



2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 

2324 
2325 
2326 
2327 
2328 
2329 
2330 



2331 
2332 
2333 
2334 
2335 
2336 
2357 
2338 
2339 
2340 
2341 



011506 
011506 
011506 
011512 
011516 
011516 
011516 



011520 
011520 
011520 
011524 
011530 
011534 
011540 
011542 
011546 
011546 
011546 



004737 005264 
004737 017776 



104423 



004737 
012700 
0O4737 
013700 
005001 
004737 



104423 



005264 
000004 
006712 

002716 

013702 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rl CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS t 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSGi! 



BGNMSG SFIMSG 



L10003: 



JSR 
JSR 
ENOMSG 

TRAP 



PC.PRITSSR 

PC.CKP'JOP 



CIMSG 



iPRINT CONTENTS OT TSSR REGISTER 
lOROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS CU f 1MAND PACKET, 



INPUTS} 



Rl 

R4 



TSSR CONTENTS 

ADDRESS OF COMMANO PACKET 



PKTSSRt j 



BGNMSG PKTSSR 



L 10004: 



J ♦ 



JSR 
MOV 
JSR 
MOV 
CLR 
JSR 
ENOMSG 

TRAP 



PC.PRITSSR 

♦4.R0 

PC.PRIPKT 

MESBFA.RO 

Rl 

PC.PRMESS 



C*MSG 



iPRINT THE CONTENTS OF TSSR REGISTER 

I NO. OF WORDS IN PACKET 

iPRINT THE CONTENTS OF COMMANO PACKET 

I ADDRESS OF MESSAGE BUFFER 

» ASSUME NO HIGH MEMORY 

j PRINT THE MESSAGE BUFFER ALSO 



iPRINT ROUTINE TO PRINT THE CONTENTS OF 
} TSSR AND A GET STATUS COMMANO PACKET, 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



j INPUTS 


• 


» 


Rl 
R4 


I 




} - 





E6 



CZTKEA TK25 FRT END FUNC *1 MACRO M1200 20-APR-84 08:12 PAGE 51-1 

CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



4 JEQ 69 



2342 
2343 

2344 
2345 
2346 
234 7 



2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 

2360 
2361 



2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 

23/8 
2379 
23S0 
2381 
2382 



2383 



011550 
011550 
011550 
011554 
011560 
011564 
011564 
011564 



011566 
011566 
011566 

011572 
011572 
011572 



011574 
011574 
011574 
011600 
011602 
011604 
011610 
011610 
01X610 



004737 005264 
012700 000002 
004737 006712 



104423 



PGNMSG PKTGETS 

PKTGETS:: 

JSR PC,PRI T SSR 
MOV 02, RO 
JSR PC.PRIPKT 
ENOMSG 

L10005: 

TRAP C$MSG 



jPRINT THE CONTENTS OF TSSR REGISTER 
jNO> OF WORDS IN GET STATUS PACKET 
I PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004737 005264 



104423 



SFFMSG:: 



L 10006: 



BGNMSG SFFMSG 

JSR PCPRITSSR 

ENOMSG 



jPRINT CONTENTS OF TSSR REGISTER 



TRAP 



CIMSG 



.SBTTL PKTMES - PRINT TSSR ANO MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW Of»DER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



BGNMSG PKTMES 



004737 005264 

010200 

010301 

004737 013702 



104423 



PKTMES: J 




JSR 


PCPRITSSR 


MOV 


R2»R0 


MOV 


R3,Ri 


JSR 


PC.PRMESS 


ENDMSG 





iPRINT CONTENTS OF TSSR 
i LOW ORDER ADDRESS 
i HIGH ORDER ADDRESS 
jPRINT THE MESSAGE BUFFER 



LX0007; 



TRAP 



C*MSG 



F6 



CZTKEA TK25 FRT END FUNC n MACRO M1200 
ADDSSR - PRINT TEST ADDRESS AND TSSR 



2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 

2398 

2399 
2400 
2401 



2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 

2417 
2418 
2419 



2420 
2421 



011612 
011612 
011612 
011616 
011622 
011626 
011626 
011626 



011630 
011630 
011630 
011634 
011640 
011640 
011640 
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>SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 



SEQ 70 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 007646 
016501 000000 
004737 005264 



104423 



ADDSSR: 



L10010: 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRITADD 

TSSRCR5),R1 

PC.PRITSSR 



C*MSG 



iPRINT MEMORY TEST ADDRESS 

jGET CURRENT TSSR 

;PRINT THE CONTENTS OF TSSR REGISTER 



012700 000007 
004737 015246 



104423 



.SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



jASSUME NO EXT FEATURES 

tPRINT EXPQ/RECV MESSAGE BUFFERS 





8GNMSG 


MSGEXP 


MSGEXP: 


; 






MOV 


07.R0 


5$: 


JSR 
ENOMSG 


PC, PRMSGEXP 


H0011 1 







TRAP 



C*MSG 



G6 



CZTKEA TK25 FRT ENQ ruN£ *1 MACRO M1200 
FIFEXP - PRINT FIFO EXP/RECV DATA 



2423 
2424 
2425 
2426 
2427 
2428 
2429 
2450 
2431 
2432 
2433 
2434 
2435 

2436 



2437 



2436 
2439 
2440 



2441 
2442 
2443 
2444 



011642 
011642 
011642 
011642 
011644 
011650 
011654 
011656 
011660 
011664 
011664 
011670 
011674 
011676 
011700 
011704 
011706 
011712 
011712 
011712 
011714 
011763 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 

04b 
045 
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.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 



SEQ 71 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 
IMPLICIT INPUTS; 



EXPM5G - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



; - 



FIFEXP; 5 



BGNMSG FIFEXP 



011714 
000002 



000006 

011763 
000001 



000004 
015616 



116 
IK 



045 
045 



L10012: 

FIF1MSG: 
FIF2MSG: 



PRINTX 

MOV 

MOV 

NOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENOMSG 

TRAP 



♦FIF1MSG.R1 

Rl.-CSP) 

•FIF1MSG.-CSP) 

♦2.-CSP) 

SP.RO 

CtPNTX 

♦6.SP 

♦FIF2MSG 

♦FIF2MSG,-(SP) 

•1,-CSP) 

SP.RO 

CIPNTX 

04, SP 

Rl.RO 

PC.PRBYTEXP 



i PRINT BYTES TRANSFERRED 



t PRINT HEADER MSG 



iGLT BYTE COUNT 

j PRINT FIFO BYTES IN ERROR 



.EVEN 



CIMSG 

.ASCIZ 

.ASCIZ 



*N*A NUMBER OF BYTES 
*N*A FIFO DATA BYTES 



TRANSFERRED 
IN ERROR:' 



#D2' 



H6 



CZTKEA TK25 FRT END TUNC *1 MACRO M1200 20-APR-84 08$ 12 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
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SEQ 72 



2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 

2460 
2461 
2462 
2463 



2464 
2465 
2466 
2467 



2468 
2469 

24 70 
2471 
24 72 
2473 
24 74 
24 75 
24 76 
2477 
24 78 
24 79 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 

2493 



012022 
012022 
012022 
012026 
012030 
012032 
012032 
012054 
012040 
012042 
012044 
012050 
012052 
012056 
012062 
012062 
012062 

012064 
012102 
012144 
012235 
012326 
012417 
012461 



012536 
012536 
012536 



.SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BlFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED ME5SAGF r ,JFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 
012100 
001410 

010O46 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012102 
045 
045 
045 
045 
045 
045 



012064 



000001 



000004 

000012 
015246 



012144 
116 
116 
116 
116 
116 
116 



BGNMSG 
MSGSTAT: : 

MOV 



10$: 



20* ; 



L10013: 



MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 

JSR 

ENDMSG 

TRAP 



MSGSTAT 

•STATC0D.R1 

CR1)*.K0 

20* 

RO 

RO.-CSP) 

•1,-CSP) 

SP.RO 

CJPNTX 

*4,SP 

10* 

♦10. ,R0 

PC.PRMSGEXP 



j ASCII ADDRESS TABLE 
iDONE ALL MSG LINES? 
i BR IF YES 
I PRINT STATUS BIT NAMES 



{DO ANOTHER MSG LINE 

i NUMBER OF WORDS IN A READ STATUS BUFFER 

{PRINT EXPD/RECV MESSAGE BUFFERS 



012235 STATCOO: 



CIMSG 
.WORD 



1$. 21, 31,4$, 51,61,0 



045 llj.ASCIZ '#N*A Tap* Bua Signal* in Word ^8;' 

045 2*;.ASCIZ ' #N*A PARERR<15> IEOT <12> 

045 3I.-.ASCIZ • *N#A IRESV2<14> IIDENT<11> 

045 4$:.ASCIZ ' *N*A IRESV1<13> ICER <10> 

045 5$:.ASCIZ ' *N#A Tap* Bus Signal* in Word 09:' 

045 6*:,ASCIZ ■ *N*A DATMIS<7> ILW<6> 0UTRDY<5> 
.EVEN 



IFMK <9> 
IHER <8> 
ISPEED<7> 



IRDY<6> 
I0NL<5> 
ILDP<4> 



IRU0<2>* 
IFBY<1>' 
IFPT<0>' 



INRDY<4> 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

» 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH OKDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 012600 



BGNMSG MSGLOOP 
MSGLOOP t j 

MOV 4L0QPCQP.R1 



t ASCII ADDRESS TABLE 



16 



CZTKEA TK25 FRr ENO FUNC 41 MACRO M1200 20-APR-84 08:12 

MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 



PAGE 54-1 



SEQ 73 



2494 
2495 
2496 



2497 
2498 
2499 
2500 



2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 



012542 
012544 
012546 
012546 
012550 
012554 
012556 
012560 
012564 
012566 
012572 
012576 
012576 
012576 

012600 
012620 
012673 
012772 
013071 
013170 
013267 
013366 



012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012620 
045 
045 
045 
045 
045 
045 
045 



000001 



000004 

000012 
015246 



012673 
116 
116 
116 
116 
116 
116 
116 



012772 
045 
045 
045 
045 
045 
045 
045 



10$ 



20$ 



110014: 



MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 

JSR 

ENOMSG 



(R1)*,R0 

20* 

RO 

RO.-CSP) 

41,-CSP) 

SP,RO 

C$PNTX 

*4,SP 

10$ 

♦10. ( R0 

PC.PRMSGEXP 



jOONE ALL MSG LINES? 

I BR IF YES 

jPRINT STATUS BIT NAMES 



»D0 ANOTHER MSG LINE 

j NUMBER OF WORDS IN A READ STATUS BUFFER 

t PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



C$MSG 



LOOPCOO: 
1$:. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
•ASCIZ 



2$: 
3$: 

4$: 
5$: 

6$: 
7$s 



.WORD 
*N*A Tap* 



•#N*A 
'*N«A 
'*N*A 
'#N*A 
•*N*A 
'#N#A 



1$,2$,3$ # 4$,5$.6$,7$,0 
Bua Loopback Signal* In Word 48: 

IRESV2<14> 

IWRT->IIDENT<11> 
IEDIT->IHER <08> 
ITAD1->I0NL <05> 
IRWU *>IRWD <Q2> 



PARERR<15> 

IHISP->IE0T<12> 
IWFM ->IFMK<09> 
ITAD0->IRDY<06> 
IREW ->IDBY<03> 
IGO ->XFPT<00>' 





XRF.SVl 


<13> 


IREV 


->ICER 


<10> 


IFAD 


->ISPEED 


<07> 


IERASE 


->ILDP 


<04> 


IFEN 


»>IFBY 


<0i> 



♦ EVEN 



J6 



CZTKEA TK25 FRT END FUNC #1 MACRO M1200 20-APR-84 08:12 PAGE 55 
MSGSUB PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



SEQ 74 



2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
252c 
2523 
2524 
2525 
2526 

2527 
2528 
2529 



2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
254 7 

2548 
2549 
2550 
2551 
2552 



2553 



013414 
013414 
013414 
013420 
013424 
013424 
013424 



013426 
013426 
013426 
013432 
013436 
013442 
013446 
013446 
013446 



.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EyPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012700 OO0012 
004737 015246 



104423 



MSGSUB : : 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 
ENDMSG 

TRAP 



#10. ,R0 
PC.PRMSGEXP 



CIMSG 



{SIZE OF WPITl SUBSYSTEM BUFFER 
{PRINT EXPD/RECV MESSAGE BUFFERS 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



l * 



{PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

{IMPLICIT INPUTS: 

i 

! ERRHI - MEMORY ERR OH HIGH ORDER ADDRESS 

I ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

5 EXP - EXPECTED DATA 

{ RECV - RECEIVED DATA 



0O4737 007532 

013701 002176 

013702 002200 
004737 007314 



104423 



MEMADD: 



BGNMSG MEMADD 



L 100X6 8 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRIADD 
EXPD.R1 
RECV.R2 
PC.PRIXOR 



C$MSG 



{PRINT MEMORY ADDRESS IN ERROR 
{GET EXPO DATA 
iGET RECEIVED DATA 
{PRINT EXPD/RECV 



I<6 



CZTKFA TK25 FRT END KUNC *1 MACRO M120O 
PRAMPKT - PRINT RAM AND PACKET DATA 



20-APR-84 08:12 PAGE 56 



SEQ 75 



2555 










.SBTTL 


PRAMPKT - PRINT 


RAM AND PACKET DATA 


2556 








; ♦ 








2557 








; 








2558 








{PRINT 


ROUTINE 


TO DISPLAY RAM/PACKET DATA 


2559 








:WHEN THE RAM DATA DOES NOT MATCH. 


2560 








I 








2561 








i INPUTS 


• 






2562 








i 








2563 








i 


R4 


POINTER TO COMMAND PACKET 


2564 








1 








2565 








{IMPLICIT INPUTS; 




2566 








• 








2567 








! 


RAMOATA 


DATA AS 


READ FROM THE RAM 


2568 








1 


RAMSIZ 


NUMBER 1 


df BYTES IN PACKET 


2569 








I 




IF RAMSIZ-0 THEN DEFAULT TO 8. 


2570 








I 








2571 








{IMPLICIT OUTPUTS: 




2572 








• 








2573 








i 


RAMSIZ 


SET TO 




2574 








t " 








2575 
















2576 


01345'j 






PRAMPKT 


» 






2577 


013** 50 








SAVREG 




j SAVE R1-R5 UNTIL NEXT RETURN 


2578 


013454 


012701 


002206 




MOV 


♦RAMOATA, Rl 


jDATA FROM THE RAM 


2579 


013460 


005002 






CLR 


R2 


iINIT BYTE NUMBER 


2580 


013462 


122124 




5$: 


CMPB 


CR1)*,(R4)* 


{COMPARE EXPECTED, RECEIVED 


2581 


013464 


001000 






BNE 


7$ 


(BR IF NO MATCH 


2582 


013466 


116105 


177777 


7$: 


MOVB 


-1(R1),R5 


{GET RECV RAM DATA 


2583 


0134 72 


116403 


177777 




MOVB 


-1CR4),R3 


{GET EXPO PACKET DATA 


2584 


013476 








XOR 


R5,R3 


{XOR EXPD/RECV 


2585 


013506 


042703 


177400 




BIC 


#177400. R3 


{LOW BYTE ONLY 


2586 


013512 


116137 


177777 


002200 


MOVB 


-KRD.RECV 


{GET RECEIVED RAM DATA 


2587 


013520 


116437 


177777 


002176 


MOVB 


-1CR4),EXP0 


,GET EXPECTED RAM DATA 


2588 


013526 








PRINTB 


♦RAMASC.R2.RECV 


♦EXPD.R3 




013526 


010346 






MOV 


R3,-(SP) 






013530 


013746 


002176 




MOV 


EXPD.-(SP) 






013534 


013746 


002200 




MOV 


RECV.-CSP) 






013540 


010246 






MOV 


R2.-CSP) 






013542 


012746 


013616 




MOV 


#RAMASC,~(SP) 






013546 


012746 


000005 




MOV 


♦5.-CSP) 






013552 


010600 






MOV 


SP.RO 






013554 


101414 






TRAP 


CIPNTB 






013556 


062706 


000014 




ADO 


014 ,SP 




2589 


013562 


005202 




10$: 


INC 


R2 


{UPDATE BYTE COUNT 


2590 


013564 


005737 


002246 




TST 


RAMSIZ 


■DEFAULT TO 8.7 


2591 


013570 


001404 






BEQ 


15$ 


jBR IF YES 


2592 


013572 


020237 


002246 




CMP 


R2, RAMSIZ 


{DONE ALL BYTES? 


2593 


013576 


003731 






Bl.E 


5$ 


;BR IF NO 


2594 


013600 


000403 






BR 


25$ 


1 


2595 


013602 


020227 


000010 


151: 


CMP 


R2.08, 


{DONE DEFAULT NUMBER OF BYTES? 


2596 


013606 


002725 




20$; 


BLT 


5$ 


iBR IF NO 


2597 


013610 


OCS057 


002246 


25$: 


CLR 


RAMSIZ 


>SET DEFAULT RAMSIZ 


2598 


013614 


000207 






RTS 


PC 


iRETURN 


2599 
















2600 


013616 


045 


116 


045 RAMASCi 


.ASCIZ 


«*N*A BYTfci *D2*A RAM; *Q3*A Packet: *03*A XO 


2601 










,£VEN 







L6 

K£§S TK2 ^8I ^T^i g^ MESsS^ R §U?^g° 2 °- APR - 94 ° 6:12 PAGE 5? 



SEQ 76 



2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 



2631 
2632 
2633 



>634 



2635 
2636 

2637 
2638 
2639 
2640 
2641 
2642 



013702 
013702 
013706 
013712 
013714 
013720 
013722 
013724 
013726 
013730 
013732 
013732 
013734 
013736 
013 742 
013746 
013750 
013752 
013756 
013762 
013764 
013764 
013770 
013774 
013776 
014000 
014004 
014004 
014010 
014014 
014016 
014020 
014024 
014026 
014030 
014032 
014034 
014040 
014042 
01404a 



010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 

012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 



.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

TK-25. 

INPUT : 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 



010642 
003102 



10$: 



014540 
000003 



000010 
177777 



014460 
000001 



000004 

014605 
000001 



000004 



020112 



15*: 



20$ { 



SAVREG 

MOV R5.RAMR5H 

MOV R0,R5 

TST KTENABLE 

BNE 10$ 

CLR Rl 

MOV R1.R3 

ROL RO 

ROL Rl 

PRINTX ♦PR0ASC,R1,R5 

MOV R5.-CSP) 

MOV Rl.-CSP) 

MOV APROASC.-CSP) 

MOV ^3,-CSP) 

MOV SP.RO 

TRAP C$PNTX 

ADD <MO,SP 

CMP #177777,(R5) 

BNE 15$ 

PRINTX *MESBF'N 

MOV OMESBFN.-CSP) 

MOV #1.-(SP) 

MOV SP.RO 

TRAP C$PNTX 

ADO *4 . SP 

PRINTX 4PR1ASC 

MOV 0PR1ASC.-CSP) 

MOV *1,-(SP) 

MOV SP.RO 

TRAP C$PNTX 

ADD 04, SP 

CLR R4 

MOV R5.R1 

MOV R3.R0 

BEG) 20$ 

JSR PC.SETMAP 

MOV R0.R5 



I SAVE THE REGISTERS 

tSAVE DEVICE REGISTER POINTER 

j SAVE LOW ORDER ADDRESS 

j ADDRESS ABOVE 28K? 

iBR IF YES 

j SET HIGH ORDER ADDRESS TO 

jSAVE HIGH ORDER ADDRESS 

; SHIFT BIT15 TO C BIT 

; SHIFT TO HIGH ORDER FOR PRINTOUT 

I PRINT ME5SAGE BUFFER ADDRESS 



I MESSAGE BUFFER FULL OF ONES 

jBR IF BUFFER IS PROBABLY OKAY 

j "MESSAGE BUFFER PROBABLY NOT VALID" 



j PRINT HEADER FOR CONTENTS 



j NUMBER OF THE NEXT WORD 

jCOPY LOW ORDER ADDRESS 

jCOPY HIGH ORDER ADDRESS 

i BR IF NOT ABOVE 28K 

I SETUP PAR ADDRESS IN RO 

jGET PAR FORMAT ADDRESS ABOVE 28K 



PRINTX 0MESHEA.IR5)* rPRINT "MESSAGE BUFFER HEADER ■" 



CZTKEA TK25 FRT FND FUNQ <M 

PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



MACRO M1200 20-APR-84 08:12 



M6 

PAGE 57-1 



SEQ 77 



2643 



2644 



2645 



2646 



!647 



2648 



2649 
2650 
2651 
2652 



014042 
014044 

014050 
014054 
014056 
014060 
014064 
014064 
014066 
014072 
014076 
014100 
014102 
014106 
014106 
014110 
014114 
014120 
014122 
014124 
014130 
0M130 
014132 
014136 
014142 
014144 
014146 
014152 
014152 
014154 
014160 
014164 
014166 
014170 
014174 
014174 
014176 
014202 
014206 
014210 
014212 
014216 
014216 
014220 
014224 
014230 
014232 
014234 
014240 
014246 
014250 
014254 
014254 
014260 
01^264 
014266 
014270 



012546 
012746 
01274b 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

0.12546 

0'2746 
Oi2746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
1044 1 j 
06P706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 
022737 
001402 
000137 

012746 
012746 
010600 
104415 
062706 



014643 
000002 



000006 



014710 
000002 



000006 



014755 
000002 



000006 



015022 
000002 



000006 



015067 
000002 



000006 



015134 
000002 



000006 



015201 
000002 



000006 

000001 002134 

014360 

014362 
000001 



000004 



40$ 



MOV (R5)*.-(SP) 

MOV ^f1ESHEA,-CSP) 

MOV 02,-CSP) 

MOV SP.RO 

TRAP C$PNTX 

AOO *6,SP 

PRINTX *0ATAFL,CR5)* 

MOV (R5)*,-(SP) 

MOV OOATAFL.-CSP) 

MOV *2,-(SP) 

MOV SP.RO 

TRAP OPNTX 

ADO *6,SP 

PRINTX *RBPCRA,CR5)+ 

MOV (R5)f,-CSP) 

MOV *RBPCRA,-(SP) 

MOV *2,~(SP) 

MOV SP,RO 

TRAP C$PNTX 

ADD *6,SP 

PRINTX OXS0CON.CR5)* 

MOV CR5)».-CSP) 

MOW OXSOCON.-(SP) 

MOV *2,-(SP) 

MOV SP,RO 

TRAP C$PNTX 

ADD *6,SF 

PRINTX fXSlCON.CRS)* 

MOV CR5)*.-CSP) 

MOV *XS1C0N,-(SP) 

MOV ♦2,-CSP) 

MOV SP.RO 

TRAP CiPNTX 

ADO #6.SP 

PRINTX *XS2C0N,(R5)* 

MOV CR5)*,-(SP) 

MOV ♦XS2C0N.-CSP) 

MOV $2,-(SP) 

MOV SP,RO 

TRAP C*PNTX 

ADD *6,SP 

PRINTX *XS3C0N,(R5)* 

MOV (R5)*.-(SP) 

MOV #XS3C0N,-(SP) 

MOV *2,-(SP) 

MOV SP.RO 

TRAP CiPNTX 

ADD *6,SP 

CMP ^l.TRANSTST 

BEQ 40$ 

JMP 50$ 

PRINTX *RAMFHR 

MOV $RAf1FHR, -(SP) 

MOV 01,-CSP) 

MOV SP,RO 

TRAP CIPNTX 

ADD 04.SP 



I PRINT "DATA FIELD LENGTH 



I PRINT "RESIDUAL BYTE COUNTER «" 



{PRINT "XSTATO CONTENTS 



{PRINT "XSTAT1 CONTENT? 



jPRINT "XSTAT2 CONTENTS 



?PRINT "XSTAT5 CONTENTS 



{CHECK SOFTWARE P TABLE 

{DO DUMP 

l DON' T DO THE DUMP 



N6 



CZTKEA TK25 FRT END F'UNC #1 MACRO M1200 
PRMESS - PRINT CONTENTS CF MESSAGE BUFFER 



20-APR-84 08 j 12 PAGE 57-2 



SEQ 76 



2653 
2654 
2655 
2656 
2657 
26"8 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 



014274 
014302 
014310 
014314 
014322 
014326 
014334 
014340 
014346 
014354 
014360 
014362 
014460 
014540 
014605 

014643 
014710 
014755 
015022 
015067 
( 15134 
015201 



012737 

012737 

004737 

012737 

004737 

012737 

004 737 

012737 

012737 

004 737 

000207 

045 

045 

045 

045 

045 
045 
045 
045 
045 
045 
045 



000010 
000020 
010456 
000040 
010456 
000060 
010456 
000020 
000100 
010456 

116 
116 
116 
116 

116 
116 
116 
116 
116 
116 
116 



002246 
010640 

010640 

010640 

002246 
010640 



045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



50$: 

RAMFHR 

MESBFN 

PROASC 

PR1ASC 

MESHEA 
DATAFL 
RBPCRA 
XSOCON 
XS1C0N 
XS2C0N 
XS3C0N 



MOV 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

MOV 

MOV 

JSR 

RTS 

.ASCIZ 

.ASCIZ 

, ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
■ASCIZ 
.EVEN 



06. ,RAMSIZ 

*20,RAMHLD 

PC.RAMER 

040.RAMHLD 

PC.RAMER 

*60,RAMHLD 

PC.RAMER 

•16..RAMSIZ 

tflOO.RAMHLD 

PC.RAMER 

PC 

'#N*A 

'*N*A 

'*N*A 

**N#A 

'*N*A 
'*N*A 
'#N#A 
'#N*A 
'*f*A 
'*N*A 
'*N*A 



{ RAM FIELD IS 8 BYTES LONG 
jFIELD STARTS AT 20 OCTAL CIO HEX) 
I READ AND PRINT THEM 
jFIELO STARTS AT 40 OCTAL (20 HEX) 
I READ ANO PRINT THEM 
jFIELD STARTS AT 60 OCTAL C 30 HEX) 
j READ ANO PRINT THEM 
j RAM FIELD IS SIXTEEN BYTES LONG 
iFIELD STARTS AT 100 OCTAL (40 HEX) 
j READ ANO PRINT THEM 
jRETURN 
********* SPECIAL CONTROLLER RAM MEMORY DUMP ********** 

MESSAGE BUFFER CONTENTS PROBABLY NOT VALID' 

Message Buffer Address ■ *01*05' 

Messaoe Buffer Contents: • 



Message Buffer Header 
Data Field Length 
Rtts i dual Byte Counter 
XSTATO Contents 
XSTAT1 Contents 
XSTAT2 Contents 
XSTAT3 Contents 



*06' 
#06' 
i*06' 
*06* 
*06' 
*06' 
¥06' 



B7 



C2TKEA TK25 FRT END TUNC #1 MACRO M1200 
PRMSGEXP . PRINT EXPD/RECV MESSAGE BUFFERS 



2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2696 
2699 
2700 



2701 



2702 
2703 
2704 
2705 
2706 
2707 
2708 



2 709 
2710 
2711 
2712 
2U3 



015246 
015246 
015252 
015254 
015260 
015262 
015266 
015270 
015272 
015272 
015274 
015276 
015302 
015306 
015310 
015312 
015316 
015316 
015322 
015326 
015330 
015332 
015336 
015340 
015344 
015350 
015352 
015354 
015364 
015364 
015366 
015370 
015372 
015374 
015400 
01540.; 
015406 
015410 
015414 
015411 
015420 
015422 
045424 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
0U702 
0U100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000 752 
000207 



♦ 18 



20-APR-84 08 i 12 PAGE 58 



.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ 79 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO - NUMBER OF WORDS IN BUFFER 

IMPLICIT INPUTSt 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER AOORESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002252 
002250 



015426 
000003 



000010 

015473 
000001 



000004 

002266 
002432 



015531 
000005 



000014 



PRMSGEXP? : 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

AOO 

CLR 

MOV 

MOV 

201 1 MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
INC 
CMP 
BGF 
BR 

S04i RTS 



R0.R5 

RCVLOADD.RO 

R0.R4 

RCVHIADD.R1 

RO 

Rl 

♦PRMSG0.R1.R4 

R4,-(SP) 

Rl.-(SP) 

♦PRMSGO.-(SP) 

♦3,-(SP) 

SP.RO 

CIPNTX 

♦10.SP 

•PRMSG1 

♦PRMSG1,-(SP) 

♦ i.-(SP) 

SP.RO 

CIPNTX 

♦4.SP 

R4 

♦EXPMSG.R1 

♦RECMSG, R2 

(Rl).RO 

(R2),R3 

R0.R3 

♦PRMSG2,R4 f (Rl 

RS.-(SP) 

(R2)». -CSP) 

(Rl)». -(SP> 

R4, (SP) 

♦PRMSG2, (SP) 

♦5, (SP) 

SP.RO 

CIPNTX 

♦14.SP 

R4 

R4.R5 

501 

201 

PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

I SAVE NUMBER OF WORDS 

iGET RECV LOW AOORESS 

iCOPY LOW AOORESS 

iGET RECV HIGH AOORESS 

ISHIFT BIT15 TO C BIT 

ISMIFT TO HIGH ORDER FOR PRINTOUT 

iPRINT MESSAGE BUFFER ADDRESS 



iPRINT HEADER FOR CONTENTS 



I NUMBER OF THE CURRENT WORD 
iGET EXPO BUFFER AOOtfESS 
iGET RECV BUFFER ADDRESS 
iGET EXPO 
jGET RECV 
\XOR EXPO/RECV 
)».(R2)*,R3 



■NUMBER OF THE 
jDONE ALL TfcT? 
iBR H tFS 
I DO ANOTHER 
iRETURN 



NEXT 



C7 



C7TKEA TK25 FRT ENO FUNC *1 MACRO M1200 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



20-APR-84 08il2 PAGE 56-1 



2714 

2715 015426 045 116 

2716 015473 045 116 

2717 015531 045 116 
2718 

2719 



045 PRMSGO: 
045 PPMSG1: 
045 PRMSGSi 



.ASCIZ 
.ASCI/ 
.ASCIZ 

♦ EVEN 



#N*A M«»«*9« Buffer 
#N*A M««««o« Buffer 
#N#A WORD **D2*A 



SEQ 80 



Addr«»« ■ 
Contents* 
EXPDi #06*A 



#01*05 ' 



RECVj H06«A XORj *Q6 



CZTKEA TK25 FRT ENO FUNC *1 MACRO M1200 20-APR-84 08} 12 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUTTER 
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SEQ 81 



2721 








2722 








2723 








2724 








2725 








2726 








2727 








2728 








2729 








2730 








2731 








2732 








2733 








2734 


015616 






2735 


015616 






2736 


015622 


010005 




2737 


015624 


005037 


002264 


2736 


015630 


005004 




2739 


015652 


012701 


002266 


2740 


015636 


012702 


002432 


2741 


015642 


111100 




2742 


015644 


042700 


177400 


2743 


015650 


110037 


016164 


2744 


015654 


111203 




2745 


015656 


042703 


177400 


2746 


015662 


110337 


016166 


2747 


015666 






2748 


015676 


122122 




2749 


015700 


001431 




2750 


015702 


005237 


002264 


2751 


015706 


023727 


002264 


2752 


015714 


101023 




2753 


015716 








015716 


010346 






015720 


013746 


016166 




015724 


013746 


016164 




015730 


010446 






015732 


012746 


016032 




015736 


012746 


00OO05 




015 742 


010600 






015744 


104415 






015746 


062706 


000014 


2754 


015752 






2755 


015762 


000404 




2756 


015764 






2757 


015764 






2758 


015774 






2759 


015774 


005204 




2760 


015776 


020405 




2761 


016000 


0020C1 




2762 


016002 


00071" 




2763 


016004 








0160O4 


013746 


002264 




016010 


012746 


016117 




016014 


012746 


000002 




016020 


010600 






016022 


104415 





.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 



RO 



- NUMBER Of BYTES IN BUFFER 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 



000010 



PRBYTEXP:: 

SAVREG 

MOV 

CLR 

CLR 

MOV 

MOV 
20$: MOVB 

BIC 

MOVB 

MOVB 

BIC 

MOVB 

XOR 

CMPB 

BEQ 

INC 

CMP 

BHI 
271: PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

FORCEXIT 

BR 35$ 



R0,R5 

PRMNO 

R4 

♦EXPMSG, Rl 

♦«ECMSG,R2 

(Rl).RO 

♦tC<377>.RO 

RO. PRBEXP 

(R2)«R3 

♦*C<377>,R3 

R3, PRBREC 

R0.R3 

(Rl)*,(R2)* 

30$ 

PRMNO 

PRMNO, ♦S, 

30$ 



ADDRESS 
ADDRESS 



30$ jBR IF YES 

♦PR8MSG . R4 , PRBEXP , PRBREC , R3 

R3.-(SP) 

PRBREC, -CSP) 

PRBEXP. (SP) 

R4.-CSP) 

♦PRBMSG.-CSP) 

♦5, -CSP) 

SP,R0 

C$PNTX 

♦14, SP 



iSAVE R1-R5 UNTIL NEXT RETURN 

I SAVE NUMBER Of BYTES 

lINIT ERROR COUNT 

iNUMBER OF THE CURRENT BYTE 

iGET EXPO BUFFER 

jGET RECV BUFFER 

iGET EXPO BYTE 

iCLEAR UPPER BYTE 

I SAVE FOR ERROR REPORT 

iGET RECV BYTE 

iCLEAR UPPER BYTE 

i FOR ERROR REPORT 

I XOR EXPD/RECV 

lEXPD ■ RECV? 

I BR IF YES 

l UPDATE ERROR COUNT 

iPRINTED 8? 



50$ 



30$: 
35$: 



50$: 



FORCERROR 27$,N0TSSR 

INC R4 

CMP R4.R5 

3GF 50$ 

BR 20$ 

PRINTX ♦PRBTOT .PRMNO 

MOV PRMNO. -CSP) 

MOV ♦PRBTOT,-(SP) 

MOV ♦2,-CSP> 

MOV SP.RO 

TRAP C$PNTX 



I BSD 

»aao 

i860 
i&SD 

(NUMBER OF THE NEXT 

iDONE ALL YET? 

iBR IF YES 

j DO ANOTHER 

iPRINT TOTAL ERROR COUNT 



E7 



CZTKEA TK25 FRT ENO FUNC *1 MACRO M1200 20 -APR -84 08? 12 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE PUFFER 
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SEQ 82 





016024 


062706 


000006 


2764 


016030 


000207 




2765 








2766 


016032 


045 


116 


2767 


016117 


045 


116 


2768 








2 769 


016164 


000000 




2770 


016166 


000000 




2771 









ADD 
RTS 



♦6.SP 
PC 



I RETURN 



045 PRBMSG} .ASCIZ ' *N*A BYTE <MD2*A EXPDt *03*A RECVj #Q3*A XORj *03 
045 PRBTOT: .ASCIZ ' *N*A NUMBER OF BYTES IN ERROR - *D2' 



.EVEN 
PRBEXP: .WORD 
PRBRECj *WQRD 



jEXPD 
jRECV 



F7 



CZTKEA TK25 FRT ENO FUNC 41 MACRO M1200 

EXPREC - PRINT EXPD/RECV WORD DATA 



2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 

2786 
2787 



2788 
2789 



016170 
016170 
016170 
016174 
016174 
016174 
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.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 



SEQ 83 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



004737 007314 



104423 



EXPREC:: 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENDMSG 



I PRINT THE DATA 



TRAP 



CIMSG 



G7 



;ZTKEA TK25 FRT ENQ TUNC Ql 

■XPBREC - PRINT EXPD/RECV BYTE DATA 
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SEQ 84 



2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 

2805 
2806 



2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
282* 
2825 
2826 
2827 
2828 
2829 
2830 
2831 

2832 
2833 



2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 



016176 

016176 

016176 004737 007164 

016202 

016202 

016202 104423 



016204 

016204 

016204 004737 013450 

016210 

016210 

016210 104423 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 

f 

PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS : 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



{ - 



BGNMSG EXPBREC 
EXPBREC:: 

JSR PC.PRIBXOR 

ENOMSG 
L 10020: 

TRAP CIMSG 



j PRINT THE DATA 



.SBTTL RAMERR - PRINT RAM AND PACKET DATA 



; PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 



i INPUTS: 



R4 



POINTER TO COMMAND PACKET 



{IMPLICIT INPUTS: 

I RAMOATA 
j RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER Of' BYTES IN PACKET 
IF RAMSIZ -0 THEN DEFAULT TO 8. 



{IMPLICIT OUTPUTS: 

{ 
{ 
i - 



RAMERR: : 



L 10021: 



{ * 

i 



RAMSIZ SET TO 

BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENOMSG 



{PRINT RAM/PACKET DATA 



TRAP 



CIMSG 



.SBTTL RAMTADD - PRINT TEST ADDRESS* RAM AND PACKET DATA 



{PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
! INPUTS j 



CZTKEA TK25 FRT 
RAMTADD - PRINT 

2842 
2843 
2v344 
2845 
2846 
284 7 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 



END TUNC * 
TEST ADORE 



MACRO M1200 
S> RAM AND PACKET 



►O-APR-84 08 j 12 
)ATA 
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SEQ 85 



R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 

ERRHI 
ERRLO 



L*TA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8 
HIGH OKOER TEST ADDRESS 
LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



2859 
2860 
2861 



2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 

2877 
2878 
2879 
2880 
2881 



2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 



016212 
01*212 
016216 
016222 
016222 
016222 



004737 007646 
004737 013450 



104423 



BGNMSG 

RAMTADD:; 

JSR 
JSR 
ENDMSG 

L 10022: 

TRAP 



RAMTADD 

PC.PRITADD 
PCPRAMPKT 



C$MSG 



I PRINT TEST ADDRESS 
jPRINT RAM/PACKET DATA 



.SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

♦ 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS} 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



016224 
016224 
016224 
016230 
016234 
016240 
016244 
016244 
016244 



042701 177400 

042702 177400 
004737 007440 
004737 007314 



104423 



RAMEXP: 



BGNMSG RAMEXP 



L10023: 



BIC 

BIC 
JSR 
JSR 
ENOMSG 

TRAP 



*tC<377>,Rl 
♦tC<377>,R2 
PC.PRIRAM 

PC.PRIXOR 



I SAVE EXPO RAM DATA BYTE 

l SAVE EXPC RAM DATA BYTE 

i PRINT THE RAM ADDRESS 

j PRINT THE DATA 



CIMSG 



.SBTTL TIMEXP 



PRINT TIMER A.B ANO EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV QATA 
ANO TIMER A,B HEADER MESSAGE 



INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



17 



CZTKEA TK25 FRT ENO FUNC 01 MACRO M12Q0 
TIMEXP - PRINT TIMER A,B AND EXP/REC 



20-APR-84 08:12 PAGE 61-2 



SEQ 86 



2893 








j - 






2894 














2895 


016216 
016246 






TIMEXP: 


BGNMSG 


TIMEXP 


2896 


016246 








"PRINTX 


OTIMSGO 




016246 


012746 


016274 




MOV 


OTIMSGO.-CSP) 




016252 


012746 


000001 




MOV 


41,-CSP) 




016256 


010600 






MOV 


SP,RO 




016260 


104415 






TRAP 


CIPNTX 




016262 


062706 


000004 




ADD 


#4,SP 


2897 


016266 


004757 


007314 




J5R 


PC.PRIXOR 


2898 


016272 
016272 






L 10024: 


ENDMSG 






016272 


104423 






TRAP 


CIMSG 


26^9 














2900 














2901 


016274 


045 


116 


045 TIMSGO: 


.ASCIZ 


'*N*A TIMER A 


2902 








.EVEN 







j PRINT HEADER 



j PRINT THE DATA 



'*N*A TIMER A STATUS IS IN BIT 3*N*A TIMER B STATUS IS IN BIT 2* 



J7 



CZTKEA TK25 FRT END FUNC PI MACRO M12O0 20-APR-84 08; 12 

BAOSSR - PRlN r TSSR ERRORS ON DATA TRANSFERS 
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SEQ 87 



2904 
2905 
2906 
2907 
2908 
P909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 

2918 
2919 

2920 



2921 
2922 
2923 



2924 
2925 



016374 
016374 
016374 
016376 
016402 
016402 
016404 
016410 
016414 
016416 
016420 
016424 
016426 
016432 
016432 
016432 
016434 



1044c3 
045 



.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
» 

PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS; 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 



I - 



BGNMSG BADSSR 



010246 

042702 177400 

010246 

012746 016434 

012746 000002 

010600 

104414 

062706 000006 

012602 

004737 005264 



116 



045 



BADSSR: t 




MOV 


R2.-CSP) 


BIC 


♦177400, R2 


PRINTB 


♦XFERASC ,R2 


MOV 


R2.-CSP) 


MOV 


♦XFERASC, -CSP) 


MOV 


♦2, -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADO 


♦6.SP 


MOV 


(SP)*,R2 


JSR 


PC.PRITSSR 


ENOMSG 




L 10025: 




TRAP 


CIMSG 


XFERASC: 


.ASCIZ '#N*A 



{SAVE DATA TRANSFERRED 
iGET JUST ONE BYTE 



jRESTOHE R2 

{DECODE TSSR CONTENTS 



'#N*A Data Transferred - *03' 



CZTKEA TK25 f-'RT END FUNC <u 
GLOBAL SUBROUTINES SECTION 

292 7 
2928 
2929 
2930 
2951 
2952 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
294 3 
2944 
2945 
2946 
294 7 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 

2960 016470 

2961 016470 

2962 01M74 012765 000000 

2963 016502 004737 016744 

2964 016506 016500 000000 

2965 016512 010OO4 

2966 016514 042704 176277 

2967 016520 052704 002200 

2968 016524 020400 

2969 016526 001402 

2970 016530 000241 

2971 016532 000401 

2972 016534 000261 

2973 016536 000307 



MACRO M1200 20- APR -84 08:12 



l<7 
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SEQ 88 



.SBTTL GLOBAL SUBROUTINES SECTION 
! ♦♦ 

I THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
} THAT ARE USED IN MORE THAN ONE TEST. 
I — 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 



R5 



OUTPUTS: 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR. IF ERROR 
SET IF INIT I'AS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



000000 



MOV 
JSR 
BCS 
ERRDF 



SOFINIT: : 

SAVREG 
MOV 
JSR 
MOV 
MOV 
BIC 
BIS 
CMP 
BEQ 
CLC 
BR 
$*: SEC 
101} RTS 



♦ADDRESS. R5 
PC. SOFINIT 
CONTINUE 



I REPORT FATAL ERROR 



s SAVE THE REGISTERS 
♦0.TSSRCR5) i DO THE INIT. 
PC.UAITF | WAIT FOR SSR 
TSSR(R5).R0 jGET THE TSSR REGISTER 
R0.R4 i START SETUP OF EXPECTED TSSR 

*tC<HIADDR!0FL>,R4 , CLEAR OUT UNUSED BITS 
«SSR!NBA,R4 »R4 HAS EXPECTED CONTENTS 
R4.R0 ,ONL v EXPECTED BITS SET ? 

5* i BRANCH IF OKAY 

j CLEAR THE CA3RY FOR ERROR 
10$ »G0 TO EXIT 

jSET THE CARR' BIT 
PC | RETURN TO CALLER 



L.7 



CZTKEA TK25 FRT END FUNC 01 MACRO M1200 20-APR-84 08; 12 PAGE 64 
CHKAMB - CHECK TSSR FOR AMBIGUITY 



SEQ 89 



2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
300'. 
30o5 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 



016540 
016540 
016544 
016546 
016552 
016554 
016560 
016562 
016564 
016570 
016572 
016576 
016600 
016604 
016610 
016612 
016614 
016620 
016622 
016626 
016630 
016632 
016634 
016636 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 

00O401 

000^61 
000c s 07 



.SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 



i THIS ROUT..NE TESTS THE CONTENTS OF THE TSSR REGISTER 
I FOR AMBIGUITY 



i INPUT: 



RO 



OUTPUT: 



RO 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



100000 
174077 

000200 
000040 

177761 

000016 

000040 
000006 



CHKAMB : 


SAVREG 






MOV 


R0.R4 i 




BIT 


*SC,RO j 




BNE 


5$ j 




BIT 


*tC<N6A!0FL!SSR!H 




BNE 


40$ , 




BR 


45$ } 


5$: 


BIT 


OSSR.RO j 




PNE 


10$ j 




cIT 


*8IT5,R0 i 




BEQ 


40$ i 




BIC 


*tCTERCLS,R4 i 




CMP 


R4,*16 ; 




BNE 


40$ i 




BR 


45$ i 


10$: 


BIT 


#6IT5,R0 j 




BEQ 


45$ , 




BIT 


06IT2!BITt,R0 I 




BNE 


45$ j 


40$ : 


CLC 






BR 


50$ 


45$: 


SEC 




50$: 


RTS 


PC ! 



SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
JHIADOR>,RO j ANY OTHER BITS SET ? 
MUST BE AN ERROR 
RETUf.N WITH SUCCESS 
IS READY BIT SET ? 
BRANCH IF READY BIT IS SET. 
IS FATAL ERROR BIT SET ? 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET UITH SSR 
IS THIS A FUNCTION REJECT 
BR. IF TSSR IS OK 
AMBIGUOUS CONTENTS 

SHOW SUCCESS - NO AMBIGUITY 
RETURN TO CALLER 



M7 



ERAINT.DSBINT - 



FRT 



3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 



016640 
C 1.6641 

016642 
016644 



016646 
016650 
016654 
016660 
016664 
016666 
016670 
016676 



016700 
016702 
016710 



iND FUNC 01 MACRO M1200 
'NABLE/DISABLE INTERRUPTS 
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SEQ 90 



000200 
000001 



000 
000 

000000 
000000 



010046 
013/00 
012720 
012720 
012600 
011646 
012766 
000002 



011646 
012^66 
000002 



002156 
016712 
000340 



OOOQOO 000002 



000340 000002 



.SBTTL ENAINT.D3BINT - ENABLE/DISABLE INTERRUPTS 

[ DEFAULT DISPLAY INTERRUPT HANDLERS. 

i IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 

5 OTHERWISE, SAVE DPU REGISTERS AND DISMISS, 



{ BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 



I0KCKIN-BIT7 
IOKSTP-BITO 



I DON'T CHECK FOR BAD INTERRUPTS 
i EXPECT "STOP" INTERRUPT. 



-- TEST WILL. 



j INTERRUPT MASK - - SAYS EXPECTING INTERRUPTS 

INTMASK: .BYTE 

{INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 

INTFLAG: .BYTE 

; SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 
j SAVE CPU PC 
INTCPC: .WORD 

j SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: tlOV RO.-CSP) jSAVE RO 

IVEC.RO 

OINTR.CRO)* 

*PftI07,(R0^ 

CSP)*.RO 

CSP).-(SP) 

M.2CSP) 



MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
RTI 



iGET POINTER TO VECTORS 
j SET UP INTERRUPT VECTOR 

■RESTORE RO 

|SE* CPU TO LEVEL 



{SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV (SP).(SP) 

MOV WKI07,2CSP) 

RTI 



CZTKEA TK25 FRT END FUNC <U 
INTR - INTERRUPT HANDLERS 
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3059 
3060 
3061 

3062 
3063 
3064 
3065 
3066 
3067 
3065 
3069 
3070 



3071 
3072 



016712 
016712 
016712 
016720 
016724 
016732 
01673A 



016742 
0167/52 
016742 
016742 



012737 
105037 
132737 
001003 
152 737 



000002 



000001 
016641 
000001 



002172 
016640 



INTR: 



.SBTTL INTR 
BGNSRV INTR 



N7 

PAGE 66 

- INTERRUPT HANDLERS 



SEQ 91 



000001 016641 



HOV dl ( IK»*)RECV 

CLRB INirLAG 

BITB MOKSTP , INTMASK 

BNE 1$ 

BISB 4I0KSTP,INTFLAG 



jDEFINE INTERRUPT ENTRY 

jSET FLAG TO SHOW INTERRUPT RECEIVED 

j CLEAR FLAG TO SAY WE GOT INTERRUPT 

{EXPECTING STOP INTERRUPT? 

}BR IF YES 

jNO, SET THE ERROR FLAG. 



jSAVE REGISTERS, MSG BUFFER, ETC, 
It: 

ENDSRV 
L10026: 

RTI 



B8 



CZTKEA TK25 FRT ENO FUNC #1 MACRO M1200 
WAITF - WAIT FOR SUBSYSTEM READY 
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SEQ 92 



3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3066 
308 7 
3088 

3089 
3090 



3091 
3092 
3093 
3094 
3095 



3096 
3097 
3098 
3099 

3100 
3101 
3X02 



016744 
016744 
016746 
016752 
016752 
016756 
016760 
016764 
016766 
016772 
016774 
017000 
017002 
017006 

017010 
017012 
017012 
017016 
017020 
017024 
017026 
017032 
017034 
017040 
017042 
017044 
017046 
017050 
017052 
017054 
047056 



104422 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 

100420 

012 727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



.SBTTL 

SUBROUTINE TO 

INPUTS: 

R5 

OUTPUTS! 

RO 
CARRY 



WAITF i 



010000 
000001 
002116 
177772 
177756 
000000 

000001 
002116 
177772 
177756 



21: 



3*: 

4*i 



BREAK 

TRAP 

MOV 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

MOV 

TSTB 

BMI 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RT5 



WAITF - WAIT FOR SUBSYSTEM READY 
WAIT FOR THE SUBSYSTEM READY FLAG 

ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TSSR READ 

SET . READY BIT SET 

CLR • TIMEOUT WAITING FOR REAOY 



CIBRK 

♦10000, -CSP) 

1 

#1.(PC)» 



LIDLY.CPC)* 



-6CPC) 

. -4 

-22CPC) 

,-20 

TSSR(R5),R0 

RO 

3* 

1 

♦l.(PC). 



L IDLY, (PC)* 



-6(PC) 

. -4 

-22CPC) 

. -20 

(SP) 

21 

41 

(SP)t 

PC 



I DO A SUPVSR BREAK FIRST, 

iBIG MSEC TIMER 
l DELAY 100US 



iREAD THE TSSR REGISTER 
jTEST FOR READY BIT SET 

j EXIT ON STOP FLAG. 
I WAIT 100 USEC 



iREOUCE DELA1 COUNT 

iRETRY UNTIL TIMER EXPIRES 

\ C • 0, CONTROLLER STILL RULING... 

I...OR HUNG-UP AFTER 300 MSEC. 

I C • 1. CONTROLLER IS STOPPED. 

jRESTQRE STACK WITHOUT CHANGING CARRY BIT 



C3 
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SEQ 93 



3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3125 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
.1133 
3134 
3135 



017060 
017060 
017064 
017066 
017072 
017074 
017100 
017102 
017106 
017110 
017U2 
017114 
017116 



004737 
103014 
004737 
103006 
032700 
001405 
032700 
001402 
000241 
000401 
0O0261 
OO0207 



♦SRTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

ANO TESTS TOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT? 



R5 



OUTPUT: 



016/44 
016540 
100000 

074000 



10$: 

15*; 

20* J 



ADDRESS OF CSR REGISTERS 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



I WAIT FOR READY 

, BRANCH IF TINE OUT 

»TSSR AMBIGOUS? 

»BR If YES 

;SPECIAL CONDITION SET? 

iBR IF NO 

♦<SCE!BXE!RMR{NXM>.RO »ANY ERROR BTTS SfcT? 
15$ iBR IF NO 

iSET FAILURE 
201 , 

I SET SUCCESS 
PC iRETURN TO CAUUR 



CHKTSSRt 




JSR 


PCWAITF 


BCC 


201 


JSR 


PC.CHKAMB 


BCC 


101 


BIT 


•SC.RO 


BEQ 


15$ 



D8 
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SEQ 94 



3137 
3138 
3139 
7140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 



3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 
3186 
3137 
3188 



.SBTTL <NXrt 



- CHECK FOR NONEXISTENT MEMORY 



017120 
017126 
017134 
017136 

017140 
C17142 
017144 
017150 

017*.52 

017154 
017160 
017162 
017162 
017166 
017170 
017172 
017174 
017176 



017200 
017200 
017204 
017206 
017212 
J17214 
017220 
017222 
017224 
017226 
017230 



012737 
012737 
005003 
005711 

020102 
001407 
062701 

ooo"r: 

005103 
012716 
000002 

012700 
104436 
005703 
001401 
000261 
000207 



005737 
001006 
005737 
100403 
005337 
001002 
000241 
000401 
000261 
000207 



017152 
000200 



000004 
000006 



ROUTINE TO TEST FOP A NEXM IN THE RANGE (Rl) THRU (R2), 
ON RETURN, IF "C" • l t (Rl) • NEXM ADDRESS, 

0, ALL ADDRESSES OK, 



"C " 



CALL? 



XNXM: 



1*5 



000002 

017162 
000004 



2*: 



3$ 



MOV 


ADR1.R1 


MOV 


ADR2,R2 


JSR 


PC. 


NXM 


RETURN 




MOV 




#2$,8#4 


MOV 




#PRI04,B*6 


an 




R3 


TST 




(Rl) 


CMP 




R1.R2 


8EQ 




3$ 


ADD 




•2.R1 


BR 




lt 


COM 




R3 


MOV 




*3I.(SP) 


RTI 






CLRVEC 


♦4 


MOV 




♦4,R0 


TRAP 




CICVEC 


rsT 




R3 


BEG 




.♦4 


SEC 






RTS 




PC 



j TEST "C" AND PROCEED, 

I SET BUSERR VECTOR. 

iFLAG. 

I TEST THE AOORESS(ES). 

iIF ANY TRAP, CONTINUE AT 2«. 

I OTHERWISE, CONTINUE HERE. 

|BR IF FINISHED (NO NEXM'S), 

l SET NEXT ADDRESS... 

I . . .AND CONTINUE. 

iGOT ONE, SET FLAG... 

I... AND DISMISS INTERRUPT... 
I... AND GIVE BACK THE VECTOR. 



lOID WE CATCH ONE ?? 

|N0, •"■" » 0, SKIP NEXT. 

I YES, "C" - 1, (Rl) - NEXM ADDR . 



002136 
002152 
002164 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 

SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO, 

LOOP COUNTER IS SET BY "BEGIN, TEST" MACRO. 



t ITERATIONS INHIBITED? 

I YES. 

t NO. 

lLOOPS DISALLOWED IN QUICK PASS* 

j BUMP LOOP COUNTER. 

iLOOP DISALLOWED, OR DONE, 

I LOOP ENABLED, 



1 CALL: LOOPTO 


ARG 


TSTLOOPi: 




TST 


NOITS 


BNE 


\t 


TST 


QVP 


BMI 


11 


DEC 


LOOPCNT 


BNE 


21 


11: CLC 




BR 


3$ 


21: SEC 




Ml RTS 


PC 



CZTKEA TK25 FRT ENO FUNC 01 MACRO M1200 

TSTLOOP - CHECK ITERATION COUNT 



3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3205 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 



E8 
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.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 



SEQ 95 



PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INOICATE THE NUMBER Of TESTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS, 



INPUT: 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT: 



R5 ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



3231 
3232 
3233 



3234 
3235 



3236 



017232 
017232 
017234 
017240 
017244 
017250 
017254 
017260 
017262 
017266 
017270 
017272 
017300 
017300 
017302 
017304 
017306 
017310 
017312 
017320 
017320 
017322 
017324 
017326 
017330 
017336 
017336 
017342 
017344 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 
100010 
052760 

104455 
000001 
003636 
005176 
000407 
052760 

104455 
000002 
004233 
000000 

012737 

013700 
104451 



003106 
017500 
005232 

016M0 

0021^0 
003062 



160000 003130 



TSTSETUP: : 
MOV 



160001 003130 3$ 



177777 
0Q2150 



003060 2$ 



CLR 

CLR 

CLR 

CLRB 

MOV 

ASL 

TST 

BEG 

BPL 

BIS 

ERRDf 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DOOU 

MOV 

TRAP 

DOCLN 



RO.-(SP) 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNITN.RO 

RO 

NOOEV 

41 

31 

♦160000, ERTA8LC 

l.NXR.NXRERR 

CIERDF 

1 

NXR 

NXRERR 
2% 

$160001, ERTABLC 

2.N0INIT 

CIERDF 

2 

NOINir 



♦-1.DUFLG 

UNITN 

UNITN.RO 

C1QQDU 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG, 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER. 
... AND MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 
RO) j FLAG ERROR IN THE ERROR TABLE 
\ NO DEVICE HERE -- PRINT IT 



RO) i FLAG ERROR IN THE ERRQR TABLE 
t DEVICE NOT IDLE 



; DROP THE UNIT 
I ABORT THE PASS 



F8 
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017344 


104444 






TRAP 


CfDCLN 


3237 


017346 


000423 






BR 


5$ 


3238 














3239 


017350 






4$; 


RFLAGS 


RO 




017350 


104421 






TRAP 


CIRFLA 


3240 


017352 


032700 


001000 




BIT 


•PNT.RO 


3241 


017356 


001412 






BEG 


1$ 


3242 


017360 


011600 






MOV 


(SP),RO 


3243 


017362 








PRINTF 


*TNAM>RO 




017362 


010046 






MOV 


RO.-CSP) 




017364 


012746 


017426 




MOV 


*TNAM, ~(SP) 




017370 


012746 


000002 




MOV 


02,-CSP) 




017374 


010600 






MOV 


SP.RO 




017376 


104417 






TRAP 


CIPNTF 




017400 


062706 


0000C6 




AOD 


♦6.SP 


3244 


017404 


005237 


002162 


1$: 


INC 


TSTCNT 


3245 


017410 








SETPRI 


IPRI 




017410 


013700 


002160 




MOV 


IPRI.RO 




017414 


104441 






TRAP 


CtSPRI 


3246 


017416 


005726 




5$: 


TST 


CSP)* 


324 7 


017420 


013705 


002154 




MOV 


CSRA00R,R5 


3248 


017424 


000207 






RTS 


PC 


3249 


017426 


045 


123 


045 TNAh: 


.ASCIZ 


'#S*T*A Test 


3250 










,EVEN 





SEQ 96 



I GET THE OPERATOR FLAGS. 

I PRINT THE TEST NUMBERS? 

j BR IF NO 

l GET THE ID MESSAGE 

i DISPLAY THE TEST ID 



I BUMP TEST COUNTER. 

j PRIORITY THAT OF DEVICE 



iFIX UP THE STACK 

j ADDRESS OF TSV REGISTERS ON UNIBUS 



G8 
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SEQ 97 



3^52 
3253 
3254 
325^ 
3c 56 
3; 57 

3258 
3259 
3260 



3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 

3294 

3295 
3296 
3297 



017442 
017442 
017444 
017450 
017452 
017452 
017456 
017462 
017466 
017470 
017472 
017476 

017500 
017502 
017521 



017566 

017572 
017574 
017600 
017602 
017606 
017610 
017614 
017616 
017620 
017622 

017624 
017626 
017632 
017634 
017640 
017644 
017650 
017652 
017660 
017662 
017662 
017664 
017670 
017672 
017700 
017700 
017702 
017704 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000OO0 
045 
105 



005237 
-10046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010O46 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 
012737 

104455 
000O04 
017521 



020000 



017500 
017502 
000002 



000006 



101 
122 



017500 
002150 
003130 
007777 



.SBTTL TSTEND - PRINT ERRORS RECEIVED 
i 

I AT END OF EACH TEST, PMNT THE NUMBER OF* ERRORS RECEIVED 
i IF NORMAL ERROR REPORTING IS DISABLED (FLAiIER). 

t 



TSTEND: 



i BR IF "IER" NOT SET, 
j PRINT ERROR COUNT, 



1*: 

ERRK; 
040 ESUT1: 
122 EMAXDU: 



i ♦ 



RFLAGS RO 

TRAP CIRFLA 

BIT ROSIER 

BEQ 1$ 

PRINTF *ESUM,ERRK 

MOV ERRK.-CSP) 

MOV *ESUM,-(SP) 

MOV *2,-(SP) 

MOV SP.RO 

TRAP CIPNTF 

ADD *6,SP 

RTS PC 



i LOCAL ERROR COUNT, 

,ASCIZ /*A *D*A ERRORS/ 

.ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 

.EVEN 

.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 



002150 

003130 
170000 
002142 

017500 002140 



000040 
177777 



003060 



j ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT; 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER. 

... ANO MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY, 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

, , , ANO MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO -- DROP THE UNIT 



1 - 






INCERK : 


INC 


ERRK i 




MOV 


RO.-(SP) i 




MOV 


UNITN.RO i 




ASl 


RO i 




ADO 


♦ERTABL.RO i 




INC 


(RO) , 




BIT 


♦7777, (RO) i 




BNE 


1* i 




DEC 


(RO) i 


1$: 


MOV 


(SP^.RO » 




RTS 


PC i 


CKEMAX: 


MOV 


RO.-CSP) i 




MOV 


UNITN.RO j 




ASL 


RO , 




MOV 


ERTABL(RO),RO j 




BIC 


♦170000, RO i 




CMP 


PO.GERRMAX , 




BHIS 


It i 




CMP 


ERRK.LERRMAX , 




BLO 


2* i 


1$: 


RFLAGS 


RO i 




TRAP 


CtRFLA 




BIT 


♦IDU.RO , 




BNE 


2* J 




MOV 


♦-1.DUFLG j 




ERRDF 


4, EMAXDU 




TRAP 


CtERDF 




.WORD 


4 




.WORD 


EMAXDU 



H8 
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SEQ 98 



3298 



3299 

3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 

3318 
3319 
3320 
3321 
3322 
3323 
3324 



017706 
017710 
017710 
017714 
017716 
017716 
017720 
017722 



017724 
017724 
017730 
017734 
017736 
017744 
017750 
017756 
017760 
017760 
017762 
017766 
017770 
017774 



000000 

013700 
104451 

104444 

012600 
000207 



013701 
006301 
062761 
005237 
023727 
002406 

104421 
032700 
001002 
004737 
000207 



002150 



2$: 



I 
i 
i 



FATCHK: 



002150 

000001 

002170 
002170 



040000 
017776 



003130 
000031 



9$ 

J 
t 

* 



.WORD 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 

.SBTTL 





UNITN 
UNITN, RO 
CIDODU 

CIOCLN 
CSP)*,R0 
PC 
FATCHK - 



I RESTORE RO 
I RETURN TO CALLER 
INC FATAL ERRORS ANO CHECK FOR LIMIT 



CHECK FATAL COUNTER, AFTER IK;, FOR MORE THAN 25 
ERRORS ANO IF OVER CALL UNIT DROP ROUTINE 



SAVREG 

MOV UNITN, Rl 

ASL Rl 

ADD ♦1.ERTA0LCR1) 

INC FATFLG 

CMP FATFLG. 025, 

BLT 9$ 

RFLAGS RO 

TRAP C*RFLA 

BIT #eiTl4,R0 

BNE 9$ 

)SR PC.CKDROP 

RTS PC 



iBETTER SAVE THE REGISTERS 

i PICK UP THE UNIT NUMBER 

iMAKE IT INTO A BYTE OFFSET 

»ADD 1 TO THE PROPER UNIT'S ERROR COUNTER 

iBLHP FATAL ERROR COLTER 

; CHECK AGAINST 25 

iBR. IF LESS THAN 25 ERRORS 

j READ THE FLAGS INTO RO 

iBR, IF LOOP ON ERROR IS SET 
tOTHERUISE NEVER BE ABLE TO SCOPE ETC, 
:DROP UNIT IF ALLOWED 
j RETURN ETC. 



CZTKEA TKP5 FRT END FUNC *1 MACRO M1200 
CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



20-APR-84 00:12 



18 

PAGE 72 



SEQ 99 



3326 
3327 
3328 
3329 
3330 
3331 
3332 

3333 
3334 
3335 
3336 
3337 



3338 

3339 
3340 
3341 
3542 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 



017776 
020000 
020010 
020010 
020012 
020016 
020020 
020022 
020030 
020030 
020034 
020036 
020036 
020040 
020042 



020044 
020044 
020050 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



004737 
000207 



.SBTTL CKDROP 



CHECK IF UNIT SHOULD BE DROPPED 



i CHECK IF UNIT SHOULD BE DROPPED 



000040 



177777 
002150 



CKDROP: 


MOV 


RO.-CSP) 




FORCERROR ll.NOTSSR 




RFLAGS 


RO 




TRAP 


CIRFLA 




BIT 


♦IDU.RO 




BN6 


U 




MOV 


(SP),RO 


003060 


MOV 


♦-1.DUFLG 




DOOU 


UNITN 




MOV 


UNITN, RO 




TRAP 


CIDOOU 




DOCLN 


1 




TRAP 


CIDCLN 


1$: 


rtov 


CSP)*,R0 




RTS 


PC 



l ABORT THE PASS 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
; SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM, 



016470 



CONFIG: 



JSR PC.SOFINIT 

RTS PC 



J8 



CZTKEA TK25 FRT END TUNC «1 MACRO M120O 20-AF>R-84 08:12 

KTON.KTOFF . ENABLE/DISABLE MEMORY MANAGEMENT 
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SEQ 100 



3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 



020052 005737 003100 

020056 001403 

020060 012737 000001 177572 

020066 000207 l$j 



020070 005737 003100 

020074 001405 

020076 000240 

020100 000240 

020102 012737 000000 177572 

0201X0 000207 



,SBTTL KTON.KTOFF 

J 

i SUBROUTINE - ENABLE MEM MGT, 



KTON: 



- ENABLE/DISABLE MEMORY MANAGEMENT 



TST 


KTFLG 


i GOT KT? 


BEQ 


11 


i NO. 


MOV 


Ol.SRO 


1 YES. ENABLE KT11. 


RTS 


PC 





j SUBROUTINE 


- DISABLE 


MEM 


MGT t 




KTOFF: 


TST 


KTFLG 






} GOT KT11? 




BEQ 


1$ 






I NO. 




NOP 












NOP 












MOV 


OO.SRO 






j DISABLE KT 


l$s 


RTS 


PC 









CZTKEA TK25 FRT END FUNC #1 
SETMAP - SETUP PAR6 MAPPING 



3379 
3380 
3361 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 

3418 



MACRO M1200 20-APR-84 08:12 



l<8 

PAGE 74 



SEQ 101 



020112 
020112 
020116 

020122 
020124 



020156 
020162 
020166 
020170 
020174 
020200 
020204 
020206 
020210 
020212 
020214 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
0O0401 
O00241 
000207 



.SBTTL SETMAP - SETUP PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS, THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
Rl 



OUTPUTS: 



SETMAP: 



003100 



000177 
003100 

172354 
160000 
140000 



10$: 
I5*i 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENOR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. 
SET IF SUCCESS 
CLR IF ERROR 



THE ADDRESS) 



KTFLG 

10$ 

R1.R2 

6 

RO 

Rl 

♦177, Rl 

Rl, KTFLG 

10$ 

R1.B0KIPAR6 

G160000, R2 

0140000.R2 

R2.R0 

15$ 
PC 



I SAVE R1-R4 UNTIL NEXT RETURN 

l SYSTEM HAVE ABOVE 28K? 

iBR IF NO 

{SAVE LOW ORDER BITS 

; CONVERT WORD ADDRESS TO 32W BLOCKS 
I MAKE IT DOUBLE PRECISION 

l ALINE FOR LOWER 4K BOUNDARY 
{HIGHER THAN EXISTING MEMORY? 
iBR IF YES 

j SETUP MAPPING REGISTER PAR6 
I SETUP DISPLACEMENT IN PAGE 
,ADD IN PAR6 BIAS 
j RE TURN IN RO 
j SET SUCCESS 

isET FAILURE 
jRETURN 



L8 



CZTKEA TK25 FRT END FUNC *1 MACRO M1200 20-APR-84 08:12 
FILLMEM • FILL MEMORY WITH BACKGROUND PATTERN 
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SEQ 102 



3420 
5421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
34 32 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
5443 
3444 
3445 
3446 
3447 
3448 
5449 
5450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 



020216 
020216 
020222 
020226 
020230 
020234 
020240 
020242 
020244 
020246 
020252 
020254 
020260 
020262 



020332 
020336 
020340 
020344 
020346 
020352 
020360 
020366 
020370 
020374 
020400 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
005000 
013701 
000006 



004737 
010320 
020027 
1037 74 
162700 
062737 
023737 
001402 
000137 
004 737 
000207 



.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 

FILL MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 2BK. 

OUTPUTS : 

NONE 



FILLMEM: 



020070 

003072 
003074 



003100 
020052 
003104 



10$ 



020112 

160000 

020OO0 
000200 
172354 

020336 
020070 



30$ 



172354 
003100 



50$: 
5b$; 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENOR 

JSR 

MOV 

CMP 

BLU 

SUB 

ADD 

CMP 

BEH 

JM i} 

JSH 

RTS 



PC.KTOFF 

R0.R3 

FREE,R1 

FRESIZ.R2 

R3,(R1)» 

R2 

10$ 

KTFLG 

55$ 

PC, K TON 

RO 

PSTS2W.R1 

6 

Rl 
RO 

PC.SETMAP 

R3.CR0)* 

RO, #160000 

30$ 

#20000 »K0 

0200.&OKIPAR6 

B#KIPAR6, KTFLG 

50$ 

30$ 

PC^KTOFF 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT, 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO, GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADORESS START 
GET >28K START ADDRESS CIN 32W BLOCKS) 

CLEAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28K ADDRESS 
END OF PAR6 MAPPING AREA? 
BR IF NO 

6ACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
ENO OF MEMORY? 
BR IF YES 

KEEP GOING ON ETC. 
DISABLE KT 4 



M8 



CZTKErt TK25 FRT END TUNC 01 MACRO M1200 20-APR-84 08:12 

CMPMEM • COMPARE MEMORY TO BACKGROUND PATTERN 
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SEQ 103 



3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3b£4 



020402 
020402 
020406 
020410 
020414 
020420 
020424 
020426 
020430 
020434 
020440 
020444 
020450 
020452 
020454 
020456 
020460 
020464 
020466 
020472 
020474 



020530 
020534 
020536 
020540 
020544 
020546 
020550 
020552 
020554 



010003 
004737 
013701 
013702 
020311 
001411 
010137 
005037 
010337 
011137 
0004/4 
005721 
005302 
003362 
005737 
001472 
004737 
005000 
013701 
000006 



042701 
010046 
010146 
004 73/ 
010004 
012601 
012600 
020314 
001411 
010037 



.SBTTL CMPMEM 



COMPARE MEMORY TO BACKGROUND PATTERN 



COMPARE MEMORY WITH A BACKGROUND PATTERN 



INPUTS? 



RO - BACKGROUND PATTERN 

TREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K , 



OUTPUTS: 



CARRY - SET IF NO ERROR 
CARRY - CLR IF ERROR 



IMPLICIT OUTPUTS: 



CMPMEM : 



020070 
003072 
003074 



002204 
002202 
002176 
002200 



003100 
020052 
003104 

000177 
020112 



10$: 



15$: 



30$ t 



002202 



ERRHI 
ERRLO 
EXPO 
RECV 



SAVREG 

MOV 

JSR 

MOV 

hOV 

CMP 

BEQ 

MOV 

CLR 

MOV 

MOV 

BR 

TST 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

,REPT 

ROL 

ROL 

.ENOR 

BIC 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

CMP 

BLQ 

MOV 



- ERROR HIGH ADDRESS 

- ERROR LOU ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



R0.R3 

PC.MVT 

FREE.R1 

FRESIZ.R2 

R3.CR1) 

15$ 

Rl, ERRLO 

ERRHI 

R3.EXPD 

CRD. RECV 

50$ 

CRD* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 

RO 

PST32W.R1 

6 

Rl 

RO 

0177, HI 
RO.-(SP) 

Rl.-CSP) 

PCSETMAP 

R0»R4 

(SP)*.R1 

(SP)*,RO 

R3.CR4) 

32$ 

RO, ERRHI 



SAVE R1-R5 UNTIL NEXT RETURN 

COPY TEST PATTERN 

DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K . 

FREE SPACE LOCATION EQUAL TO EXPO? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPO FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS CIN 32W BLOCKS) 

CONVERT BLOCKS TO UORDS 
MAKE TT DOUBLE PRECISION 

ALINE IK BOUNOARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPO? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 



N8 



CZTKEA TK25 FRT ENO TUNC 01 MACRO M1200 2< 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 



3525 


020562 


010137 


002^04 


3526 


020566 


010337 


002176 


3527 


020572 


011437 


002. 00 


3528 


020576 


000421 




3529 


020600 


062701 


000002 


3530 


020604 


005500 




3531 


020606 


062704 


000002 


3532 


020612 


020427 


160000 


3533 


020616 


103755 




3534 


020620 


162704 


020000 


3535 


020624 


062737 


000200 172354 


3536 


020632 


023737 


172354 003100 


3537 


020640 


101744 




3538 


020642 


004737 


020070 


3539 


020646 


000241 




3540 


020650 


000403 




3541 


020652 


004737 


020070 


3542 


020656 


000261 




3543 


020660 


000207 




3544 









32$: 



50$: 



55$: 
60$: 



APR-84 


08:12 PAGE 76-1 


MOV 


Rl.ERRLO } 


MOV 


R3.EXPD i 


MOV 


(R4),RECV i 


BR 


50$ i 


ADD 


02, Rl : 


ADC 


RO , 


ADD 


*2,R4 , 


CMP 


H4, 0160000 j 


BLO 


30$ i 


SUB 


020000, R4 i 


ADD 


*200,S*KIPAR6 j 


CMP 


Q0KIPAR6.KTFLG ; 


BLOS 


30$ j 


JSR 


PC, K TOFF i 


CLC 




BR 


60$ ( 


JSR 


PCKTOFF » 


SEC 




RTS 


PC 



SEQ 104 



SAVE LOW ORDER IN ERROR 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 

POINT TO NEXT 4K BLOCK >28K. 

END OF MEMORY? 

BR IF NO 

TURN OFF MEMORY MAPPING 

SET FAILURE 

TURN OFF MEMORY MAPPING 
SI£T SUCCESS 



CZTKEA TK25 FRT ENO FUNC #1 
REGSAV - SAVE R1-R5 ON STACK 



3546 
354 7 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 



MACRO M1200 20-APR-84 06 i 12 



B9 

PAGE 77 



SEQ 105 



3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3576 
3579 
3580 

3581 
3582 



020662 
020662 
020662 
020664 
020666 
020670 
020672 
020674 
020676 
020702 
020704 

020706 
020710 
020712 
020714 
020716 
020716 
020720 



104422 
010446 
010346 
010246 
010146 
010546 
016605 
004736 
012601 
012602 
012603 
012604 
012605 

104422 
000207 



.SBTTL REGSAV - SAVE R1-R5 ON STACK 



ROUTINE TO 

SAVE Rl THROUGH R5 ON THE STACK 



CALLING SEQUENCE i 



JSR 



R5, REGSAV 



THIS IS A COROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE, AT THE ENO OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



REGSAV j 



000012 



BREAK 




TRAP 


C1BRK 


HOV 


R4.-CSP) 


MOV 


R3,-(SP) 


MOV 


R2.-CSP) 


MOV 


Rl.-(SP) 


MOV 


R5.-CSP) 


MOV 


10,(SP),R5 


JSR 


PC,»(SP)» 


MOV 


(SP)*,R1 


MOV 


(SP)»,R2 


MOV 


(SP)*,R3 


MOV 


(SP)».R4 


MOV 


(SP)*,R5 


BREAK 




TRAP 


CIBRK 


RTS 


PC 



lLOOK FOR CNTL C 



I LOOK FOR CNTL C 



CZTKEA 

GETPAT 

3564 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 



TK25 FRT 
• GET 8 



3606 

3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 



020722 
020722 
020726 
020726 
020730 
020732 
020734 
020736 
020740 
020742 
020744 
020746 
020746 
020746 
020750 
020754 



020756 
02v760 



ENO FUNC #.l MACRO M1200 
BIT PATTERN FROM OPERATOR 



20-APR-84 08i 12 



C9 

PAGE 78 



SEQ 106 



.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



ROUTINE TO REQUEST AN 6 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS; 

NONE, 
OUTPUTS! 

RO OCTAL NUMBER PROM THE OPERATOR 
CALLING SEQUENCE: 

JSR PC, GETPAT 



104443 
000406 
020756 

000022 
020760 
000377 
000000 

000377 



103367 
013700 
000207 



GETPAT j 

lit 



100001 



020756 



SAVREG 




GMANIO 


DATASC.PA 


TRAP 


CIGMAN 


BR 


10000* 


.WORD 


PATDAT 


.WORD 


TICOOE 


.WORD 


DATASC 


.WORD 


377 


.WORD 


TtLOLlM 


.WORD 


TIMILIM 


BNCOMPLETE 1 


BCC 


1* 


MOV 


PATDAT, RO 


RTS 


PC 



i SAVE THE GENERAL REGISTERS 



iRETRY IF ERROR 

t OATA PATTERN FROM OPERATOR 
.RETURN TO CALLER 



» ♦ 



jLOCAL DATA AREA 



OQOOOO 
105 



116 



134 



PATDAT: .WORD 
DATASC: .A5CIZ 
.EVEN 



i TEMPORARY STORAGE FOR DATA 

•ENTER DATA PATTERN' 



CZTKEA TK25 FRT END FUNC *1 MACRO M1200 20-APR-84 08? 12 
GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



D9 



PAGE 79 



SEQ 107 



3618 
5619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3636 



3639 
3640 



3641 

3642 
3643 
3644 
3645 



3646 

3647 
3648 

3649 

3650 
3651 
3652 



021004 
021004 
021010 
021012 
021014 
021016 
021020 
021020 
021022 
021026 
021032 
021034 
021036 
021042 
021044 
021044 
021046 
021050 
021052 
021054 
021056 
021060 
021062 
021064 
021064 
021064 
021066 
021072 
021074 
021076 
0210 7 6 
021102 
021106 
021110 
021112 
021116 
021120 
021122 
021170 
021175 



010002 
010203 
005713 
001412 

012346 
012746 
012746 
010600 
104417 
062706 
000764 

104443 
00O406 
021224 
000042 
021175 
177777 

oooooo 

177777 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



,SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 

♦ 

ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE, 



INPUTS; 



RO 
Rl 



OUTPUTS; 



GETSEL t 



1$ 
2$ 



021170 
000002 



000006 



3$j 



10001*: 



021224 



021122 
000001 



000004 



116 
116 
156 



021224 OOOOOO 



5$: 
045 MENERR 
045 SELASC 
164 MENASC 

MENRESi 



RO 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

GMANID 

TRAP 

BR 

.WORO 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



R0.R2 
R2.R3 
(R3) 
31 

♦SELASC. (R3)> 

(R3)»,-(SP) 

♦SELASC, -(SP) 

♦2,-CSP) 

SP.RO 

CIPNTF 

♦6.SP 

2* 

MENASC. MENRES.D, -1,0,-1. NO 

CIGMAN 

10001$ 

MENRES 

TICOOE 

MENASC 

-1 

TILOLIM 

TIHILIM 



i SAVE GENERAL REGISTERS 

I SAVE THE MENU ADDRESS 

I START OF MENU STRING 

lEND OF ASCII ? 

jBRANCH IF ALL LINES DISPLAYED 

iDISPLAY THE MENU 



BNCOMPLETE 



II 



BCC II 

MOV MENRES.RO 

CMP R0.R1 

BLOS 51 

PRINTF ♦MENERR 

MOV ♦MENERR, -CSP) 

MOV *1,-(SP) 

MOV SP.RO 

T3AP CIPNTF 

ADD *4 , SP 

BR II 

RTS PC 

, ASCIZ 'iiN#A ♦** Mtnu 

.ASCIZ >*N*1> 

.ASCIZ 'Enter Menq Selections 
♦ EVEN 

.WORD 



jRETRY IF ERROR 



iGET THE OPERATOR'S 
i COMPARE TO MAXIMUM 
l BRANCH IF OK 
I DISPLAY ERROR MESSAGE 



REPLY 

ALLOWED 



iRETRY 

iRETURN TO CALLER 
Selection Too Largs 



+**' 



E9 



CZTKEA TK25 FRT ENO FUNC 01 MACRO M1200 20-APR-84 08:12 
CHKMAN - CHECK HANUAL INTERVENTION LEGALITY 



PAGE 80 



SEQ 108 



3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
36 74 
3675 
3676 
3677 
3678 

3679 

3680 



.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 

♦ 

ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY, 
INPUT; 

NONE. 
OUTPUT; 



CARRY 



SIDE EFFECTS: 





1 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



3681 
3682 
3683 
3684 

3685 



021226 
021226 
021232 
021232 
021234 
021234 
021236 
021236 
021242 
021246 
021250 
021252 
021256 
021260 

021262 



CHKMAN! 



104450 

103411 

012746 021262 

012746 000001 

010600 

104417 

062706 000004 

000241 

000207 



045 



116 



045 





SAVREG 






MANUAL 






TRAP 


C*MANI 




BCOMPLETE 1$ 




BCS 


1$ 




PRINTF 


WOMAN 




MOV 


♦WOMAN, -CSP) 




MOV 


♦l.-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADO 


♦4.SP 




CLC 




11: 


RTS 


PC 


NOMANj 


.ASCIZ 
»even 


•*N*A *** Ma 



j SAVE THE REGISTERS 

I SEE IF MANUAL INTERVENTION OK 

j BRANCH IF ALLOWED 

I PRINT THE WARNING MESSAGE 



I CLEAR CARRY FOR ERROR 
iRETURN 

•rfhWA *** Manual Intervention not Allowed - Test Aborted ++* 



F9 



CZTKEA TK25 FRT END FUNC *1 MACRO M1200 
ENVIRN - SETUP FREE DIAGNOSTIC SPACE 



20-APR-84 08:12 PAGE 81 



SEQ 109 



3687 
3688 
3689 
3690 
3691 

3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 



021356 
021356 
021360 
021364 
021372 
021376 
021404 
021410 
021416 
021420 
021422 
021426 
021432 
021436 
021442 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



.SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
i 
i SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



003072 

000002 003072 

003074 

000004 003074 

002012 

000007 003074 



003072 
003074 
000002 
003076 



ENVIRN} MEMORY 
TRAP 
MOV 
ADD 
MOV 

sue 

MOV 

10* : sue 
DEC 
BNE 
MOV 
ADD 
SUB 
MOV 
RTS 



RO 

CIMEM 

RO.FREE 

♦2, FREE 

(RO).FRESIZ 

♦4.FRESIZ 

LIUNIT,R2 

♦7.FRESIZ 

R2 

10$ 

FREE.RO 

FRESIZ.RO 

♦2.R0 

RO.FREEHI 

PC 



I GET 1ST FREE ADDRESS... 

j... AND WORD COUNT. 

j GET NW1BER OF UNITS 

j TAKE AWAY 7 WORDS PER UNIT 



iGET FIRST FREE ADDRESS 

, POINT TO LAST FREE ADDRESS 

I BACKUP 1 WORD 

I STORE LAST FREE ADDRESS 

jRETURN 



G9 



CZTKEA TK25 FRT END FUNC #1 MACRO M1200 20-APR-84 08? 12 PAGE 82 
KTINIT - SETUP KTll MEMORY MANAGEMENT REGISTERS 



SEQ 110 



3 707 










.SBTTL 


KTINIT - SETUP KTll MEMORY MANAGEMENT REGI 


3708 








j ♦ 








3709 








i 








3710 








j ROUTINE TO INIT KT-11 




3711 








1 








3712 








• 








3713 
















3714 021444 








KTINIT j 








3715 021444 


005037 


003100 






CLR 


KTFLG 


INIT >28K MEMORY FLAG 


3716 021450 


005037 


003102 






CLR 


KTENABLE 


INIT TEST >28K FLAG 


3717 021454 


023727 


002120 


001577 




CMP 


L*HIME,#1577 


GOT ENOUGH MEMORY (>28l<)? 


3718 021462 


101444 








BLOS 


9$ 


NO. 


3719 021464 


013700 


000004 






MOV 


S*ERRVEC,RO 


SAVE OLD ERR VEC PTR. 


3720 021470 


012737 


021562 


000004 




MOV 


#2I,Q#ERRVEC 


SET ERR VEC PTR. 


3721 021476 


005737 


177572 






TST 


04SRO 


GOT KTll? 


3722 021502 


000240 








NOP 




(TRAP IF NO). 


3723 021504 


013737 


002120 


003100 




MOV 


LIHIME.KTFLG 


YES. SET KT FLAG. 


3724 021512 


042737 


000177 


003100 




BIC 


♦177, KTFLG 




3725 021520 


010037 


000004 






MOV 


RO,&#£RRVEC 


RESTORE OLD ERR VEC PTR, 


3726 021524 


005000 








CLR 


RO 


RO ■ AR DATA. 


3727 021526 


012701 


172340 






MOV 


#KIPAR0,R1 


Rl - KI REGS PTR. 


3728 021532 


012761 


077406 


177740 


Ui 


MOV 


477406, -40CR1) 


SET DESCRIPTOR REG. 


3729 021540 


010021 








MOV 


R0.CR1)* 


SET KIPAR REG. 


3730 021542 


062700 


000200 






AOD 


#200. RO 


BUMP AR DATA BY »4K". 


3731 021546 


020027 


002000 






CMP 


R0,#2000 


AT "I/O"? 


3732 021552 


001367 








BNE 


1$ 


NO. 


3733 021554 


012741 


177600 






MOV 


#177600, -CR1) 


YES. SET KTPAR7 FOR I/O. 


3734 021560 


000405 








BR 


9$ 




3735 
















3736 021562 


012716 


021570 




2*t 


MOV 


#6$,(SP) 


SET UP RETURN 


3737 021566 
3738 


000002 








RTI 




RTI TO NEXT LOCATION 


3739 021570 

3740 

3741 021574 


010037 


000004 




6$: 


MOV 


RO.S#ERRVEC 


RESTORE OLD ERR VEC PTR, 


000207 






9$: 


RTS 


PC 




3742 
3751 
3752 








i 


♦IIF OF 


QNEFILE. 


PAGE 
















3758 

















H9 

CZTKEA TK25 FRT END FUNC «1 MACRO M1200 20-APR-84 08} 12 PAGE 83 SEQ 111 

PROTECTION TABLE 

3760 .SBTTL PROTECTION TABLE 

3761 021576 BGNPROT 
021576 L$PROTj; 

3762 021576 177777 177777 177777 .WORD -1. -1, -1, -1 »N0 DEVICE PROTECTION REQUIRED, 

3763 021606 ENDPROT 
3764 



CZTKEA TK25 FRT END FUNC «1 
INITIALIZE SECTION 



3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 



MACRO M1200 



3780 
3781 
3782 
3783 
3784 
3785 



3786 

3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3 795 
3796 
3797 



3798 

3799 
3800 

3801 
3802 

3803 

3804 
3805 

3606 



021606 
021606 
021606 
021606 
021614 
021620 
021624 
021630 
021630 
021634 
021636 
021636 
021640 
021646 
021650 
021654 
021656 
021662 
021664 
021670 
021672 
021700 
021702 
021702 
021704 
021706 
021706 
021712 
021714 
021714 
021716 
02171C 
021722 
021724 
021724 
021726 
02172t 
021732 
021734 
021734 
021736 
021736 
021736 
021740 



012737 
005037 
005037 
005037 

012700 
104447 

103023 
023737 
103064 
005737 
100466 
013701 
006301 
005761 
001512 
032761 
001054 

104432 
000412 

012700 
104447 

103046 

012700 
104447 

103404 

012700 
104447 

103025 



104433 
00503? 



19 

20-APR-B4 08:12 PAGE 84 

.SBTTL INITIALIZE SECTION 



SEQ 112 



THE INITIALIZE SECTION CONTAINS THE COOING THAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS. 

IF "START" OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT. 
IF "CONTINUE", NOTHING IS REQUIRED. 



INSERT TEMPORARY JUMP TO ODT 



005672 
003106 
003102 
002246 

000036 



002150 
003060 
002150 
003130 
040000 



002146 



LIINITj 
40*: 



002012 



003130 



000035 



000040 



000037 



1* 



2ii 



*EPRT1,EPRTSU 

SIFLAG 

KTENA8LE 

RAMSIZ 

♦ef. continue 
♦ef.continue.ro 

CIREFG 



BGNINIT 



MOV 

CLR 

CLR 

CLR 

REAOEF 

MOV 

TRAP 

BNCOMPLETE II 

BCC 1$ 

CMP UNITN.LIUNIT 

BHIS 4$ 

TST DUFLG 

BMI NXTU 

MOV UNITN.R1 

ASL Rl 

TST ERTABL(Rl) 

BEQ SETU 

BIT ♦6IT14.ERTABLCR1 

BNE NXTU 

EXIT INIT 

TRAP CtEXIT 

.WORD L 10030 -, 

READEF ♦EF.NEW 

MOV ♦EF. NEW, RO 

TRAP CIREFG 

BNCOMPLETE NXTU 

BCC NXTU 

READEF OEF. START 

MOV ♦EF.START.RO 

TRAP CIREFG 

BCOMPLETE 21 

BCS 21 

READEF ♦EF. RESTART 

MOV ♦EF. RESTART, RO 

TRAP CIREFG 

BNCOMPLETE 311 



I SET UP PRIMARY MESSAGE FOR REPLACEMENT 

I CLEAR "SOFT INIT" FLAG 

l CLEAR TEST ABOVE 28K FLAG 

i CLEAR RAM SIZE FOR RAMERR ROUTINE 



jUNIT IN RANGE? 
i8R IF NO. 
iDROPPED UNIT? 
iBR IF YES 



) jDROPPED? 

I DO NOTHING IF "CONTINUE". 



jTAKE NEaT UNIT IF NOT NEW PASS. 



0Q2162 



BCC 

BRESET 

TRAP 

CLR 



311 



CIRESET 
TSTCNT 



1 1ST PASS, BUS-INIT. . . 
{BUS RESET, 

I NUMBER OF TESTS RUN IN PASS 



CZTKEA TK25 FRT END FUNC *1 
INITIALIZE SECTION 



MACRO M1200 20-APR-84 08 5 12 



J9 

PAGE 84-1 



SEQ 113 



3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3622 
3823 
3824 

3825 
3826 
3827 
3828 
3829 
3830 

3831 
3832 
3833 
3834 
3835 
3836 
3837 

3638 
3839 
3840 
3841 

3842 
3643 
3844 
3845 



3846 

3847 
3848 
3649 
3850 

3851 
3852 
3853 
3854 
3855 
3656 



021744 
021750 
021754 
021754 
021762 
021766 
021772 
021776 
022000 
022004 
022006 
022010 
022014 

022020 
022020 
022026 
022032 
022032 
022034 
022040 
022046 
022050 
022056 
022060 
022060 
022062 
022064 
022064 
022072 
022074 
022 1GO 
022102 
022102 
022104 
022110 

022112 
022112 
022114 
022116 

022116 
022116 
022122 
022124 
022124 
022126 
022132 
022136 
022140 

022144 
022146 
022150 
022154 
022160 



005037 
005037 

012737 
004737 
0O4737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012737 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 
000741 



013700 
104442 

103342 
005037 
005237 
012001 
010137 

012001 
011002 
010237 
010137 
012721 



002170 
003332 

177777 
021356 
021444 
003130 

003330 



002152 
022064 



177777 
002166 



002150 
002150 

177777 



002012 
002166 

000100 



002150 



003060 
002106 

002154 



002160 
002156 
016712 



002152 



002150 

002012 
003060 



19$; 
20$: 



30$: 



31$: 



4$: 

NEWPAS: 

NXTU: 



000001 



11$: 
PASRPT: 



10$: 
SETU: 



CLR 
CLR 

MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

BLO 

BR 

CLR 

JMP 



MOV 

CLR 

BREAK 

TRAP 

INC 

CMP 

BLO 

MOV 

BR 

DOCLN^ 

TRAP 

NOP 

CMP 

BLOS 

TST 

BEQ 

RFLAGS 

TRAP 

BIT 

BNE 

DORPT 

TRAP 

BR 



FATFLG 
SKIPT 

0-1, QVP 

PC.ENVIRN 

PC.KTINIT 

•ERTABL.RO 

CR0)» 

RO.*ERTABE 

30$ 

4$ 

QVP 

PASRPT 



♦-1.UNITN 

DF.VCNT 

C$BRK 

UNITN 

UNITN,L$UNIT 

SETU 

♦-1.DUFLG 

11$ 

C$DCLN 



L$UNIT,*1 

NEWPAS 

DEVCNT 

NEWPAS 

RO 

CiRFLA 

♦ISR.RO 

NEWPAS 



CiDRPT 
NEWPAS 



GPHARD 1 'ITN.RO 

MOV U4ITN.R0 

TRAP C$GPHRD 
BNCOMPLETE NXTU 

BCC NXTU 

CLR DUTLG 

INC DEVCNT 

MOV CRO^.Rl 

MOV Rl.CSRADDR 



1 RESET FLAG TO ZERO "FATAL ERRORS" 
1 CLEAR THE SUBTEST "SKIPPER" 

j . . . QUICK VERIFY, . . 

j SET ENVIRONMENT. 

1 INITIALIZE KT MEMORY MANAGEMENT 

I CLEAR THE ERROR TABLE 



|G0 REPORT THE STATUS 



iINIT UNIT NUMBER... 

{CLEAR COUNT OF DEVICES RUNNING 



I... AND 5ET NEXT UNIT NUMBER. 



{ABORT, NO MORE UNITS. 



tHOW MANY UNITS SELECTED? 
{BR IF ONLY 1 
{ARE ANY STILL RUNNING? 
{BR IF NO 



{SHOULD WE PRINT STATISTICS 
l BR IF NO 



MOV 


(R0)*,R1 


MOV 


(R0),R2 


MOV 


R2.IPRI 


MOV 


Rl.IVEC 


MOV 


»INTR,CRX)t 



l GUT UNIT N P-TABLE POINTER. 

{BR IF UNIT NOT AVAILABLE. 

{CLEAR "DROPPED" FLAG. 

,GET 1ST REGISTER ADDRESS. 

{ADDRESS OF REGISTERS OF UNIT UNDER TEST 

iGET VECTOR ADDRESS. 

,GET INTERRUPT PRIORITY 

{SET INTERRUPT PRIORITY, 

,SET INTERRUPT VECTOR POINTER..* 

I,. .VECTOR**. 



CZTKEA TK25 FRT END FUNC 01 
INITIALIZE. SECTION 
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SEQ 114 



3857 
3858 
3859 
3860 
3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 

3874 
3875 
3876 



3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 



3891 



3892 
3893 
38*4 



022164 
022166 



022166 
022172 
022174 
022202 
022206 
022214 
022216 
022216 
022220 
022224 
022226 
022226 
022232 
022236 
022242 
022244 
022246 
022252 
022252 
022256 
022262 
022264 
022270 
022274 
022276 
022302 
022310 



022310 
022310 
022314 
022316 
022316 
022316 

022320 



010221 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
0O4737 
103005 
010137 
012737 



012700 
104441 



104411 
045 



1$ 

J 
} 



MOV 



TST 
BEQ 



R2.CR1)* 



QVP 
5$ 



l... AND PRIORITY. 



{1ST PASS ?? 

I NO, SKIP THE PASS 1 STUFF 



002150 

100000 
005232 
002012 



001000 



002150 
022320 
000002 



000006 

003062 
002154 

000000 
017120 

003062 
177777 



000000 



003130 
000001 



1 1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
{THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 

I 



{CLEAR ERROR EXTENSION FLAG. 
{ARE WE TESTING MULTIPLE UNITS? 
{BR IF NO. 
I YES -- GET OPERATOR FLAGS. 

I SHOULD WE PRINT UNIT 0? 
{BR LF NOT. 
{PRINT THE UNIT * 



10$: 



003060 



2$: 



MOV 


UNITN.R1 


ASL 


Rl 


BIS 


*6IT15,ERTAB1 


CLR 


EXTA 


CMP 


LIUNIT.01 


BLOS 


10$ 


RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


*PNT,RO 


BEQ 


10$ 


PRINTF 


#PUNIT,UNITN 


MOV 


UNITN,«(SP) 


MOV 


•PUNIT.-(SP) 


MOV 


*2,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


*6.SP 


CLR 


NOOEV 


MOV 


CSRADDR.R1 


MOV 


RL.R2 


ADD 


♦TSSR.R2 


JSR 


PC.XNXM 


BCC 


2$ 


MOV 


Rl, NOOEV 


MOV 


*~1,DUFLG 



{ADDRESS OF FIRST REGISTER 

{START OF REGISTERS 

{ADDRESS OF TSSR REGISTER 

{TEST BOTH CONTROLLER REGISTERS, 

{ . . . ANO BR IF ALL OK . 

{FLAG DEVICE AS NON-EXISTENT 

{DROP THIS UNIT. 



{FINALLY, SET CPU PRIORITY AND WE'RE DONE. 



116 



5$: 



L 10030: 



045 PUNIT: 



SETPRI *PRI00 

MOV *PRI0C,R0 

TRAP C$SPRI 
ENDINIT 



{ENABLE INTERRUPTS. 



TRAP 

.ASCIZ 
.EVEN 



CIINIT 

/*N*N*A*+*** TESTING UNIT #D2*A *****/ 



s 



ZTKEA TK25 FRT ENO F'JNC *1 
DD AND D&OP UNITS SECTIONS 



3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 



3904 

3905 
3906 
3907 
3908 



3909 



3910 
3911 
391? 

3913 



3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 

3922 
3923 
3924 
3925 

3926 
3927 
3928 
3929 
3930 
3931 



3932 



022366 
022366 
022366 
022370 
022372 
022400 
022406 
022406 
022410 
022414 
022420 
022422 
022424 
022430 
022430 
022432 
022434 



022462 
022462 
022462 



022464 
022464 
0;?2464 
t ?2472 
022474 
022476 
022504 
022512 
022512 
022514 
022520 
022524 
022526 
022530 
022534 
022534 
022536 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 

000026 

045 



104452 



012737 
010001 
006301 
052761 
000240 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000030 
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SEQ 115 



.SBTTL ADD AND DROP UNITS SECTIONS 

I ♦♦ 

{ THE ADD-UNIT SEC . ION CONTAINS THE COOING THAT CAUSES A DEVICE 

i TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

j OR CB) RE -INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



L$AU{ 



100000 
040000 



022434 
000002 



000006 



116 



003130 
003130 



045 1$ 



L10031: 



BGNAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENDAU 

TRAP 



R0,R1 
Rl 



GET UNIT TO BE ADDED (RO) 
MAKE IT A WORD INDEX 



•100000. ERTABLCRl) i 

•40000, ERTABLCR1) j 

•1$,R0 

RO,-(SP) 

♦ll.-CSP) 

•2,-CSP) 

SP.RO 

C$PNTF 

•6,SP 

AU 

JUMP 

L10031-2-. 

/*N*A UNIT *D*A ADDED/ 



SET THE "ACTIVE" BIT 
CLEAR THE "DROPPED" BIT 



UNUSED. 



CtPU 



THE DROP -UNI V SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS. AND THE P- TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



177777 003060 



LiDUt 



BGNOU 



140000 
000240 



022540 
000002 



000006 



003130 
000240 



MOV 


•-1.DUFLG 


MOV 


R0.R1 


ASL 


Rl 


BIS 


•140000, FRTAE'.LCRl) 


240,2*0 


,240 


PRINTF 


•ll.RO 


MOV 


RO.-CSP) 


MOV 


•ll.-CSP) 


MOV 


•2, -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


•6.SP 


EXIT 


DU 


.WORD 


JUMP 


.WORD 


L10032-2-. 



j SAY DROPPED 



J 



^ •>•>-> *>•>•>'>-> 



jgjKM tk; 



AND Dl 



> FRT END FUNC *1 
)P UNITS SECTIONS 



3933 
3934 
3935 



3956 
3937 
3938 
3939 

3940 
3941 
3942 
3943 



3944 
3945 
3946 
394 7 
3948 



022540 

022570 
022570 
022570 



022572 
022572 
022572 
022576 
022602 
022604 
022604 
022610 
022612 
022616 
022620 
022624 
022626 
022632 
022634 
022636 
022640 
022644 
022644 
022644 
022644 



045 



104453 



012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



M9 
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SEQ 116 



116 



045 



000550 
016744 



000372 
002116 
177772 
177756 

017776 



1$: 

L10032: 



.ASCIZ 

.EVEN 

ENODU 



/*N*A UNIT *D*A DROPPED/ 



j ♦ ♦ 



TRAP CIDU 
AUTO -DROP CODE SECTION, 
BGNAUTO 



L.IAUTO; 
10$: 



20$: 
L10033; 



MOV 
JSR 
BCS 
DELAY 
MCV 
.WORD 
MOV 
.WORD 
DEC 
RNE 
DEC 
BNE 
DEC 
BNE 
JSR 

ENOAUVO 

TRAP 



*360. ,H3 

PCUAITF 

20$ 

250. 

*250.,CPC)- 



L$DLY,CPC)f 



-6CPC) 

. -4 

-22CPC) 

. -20 

R3 

10$ 

PC.CKDROP 



C*AUTO 



i ENOUGH TIME FOR 2400' REEL TO REWIND 
IWA1T FOR SSR TO SET 
j LEAVE WHEN SSR IS SET 
I WAIT FOR .25 SECONDS 



i BUMP COUNTER DOWN 

j KEEP GOING 

{TRY AND DROP UNIT 

1 UNUSEO. 



N9 



CZTKfcA TK25 KRT END F'UNC 41 MACRO M1200 
CLEAN-UP AND REPORT COOING SECTIONS 



3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
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.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



SEQ 117 



i ♦ ♦ 



i THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 

I EXECUTED AT THE END OF EACH PASS COR SUB-PASS). 

I USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 



3967 
3968 
3969 
3970 
3971 

3972 



3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 



3985 
3986 
3987 
3988 



022646 
022646 
022646 
022652 



022654 
022660 
022666 
022672 
022672 
022672 
022672 



022674 
022674 
022674 
022674 
022 700 
022704 
022706 
022710 
022714 
022716 
022720 
022722 
022726 
022730 
022732 
022734 
022736 
022742 
022714 
022750 
022750 
022752 
022754 
022760 
022764 
022766 
022770 
022774 
022776 
023002 
023004 
023004 
023006 



005737 003060 
100407 



013705 002154 

012765 000000 000000 

004737 016744 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
10O066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 



023136 
000001 



000004 
003130 

040000 
170000 



023173 
000003 



000010 
160000 

023255 



BGNCLN 
L$ CLEAN} ! 

TST 
BMI 



MOV 
MOV 
JSR 

It: 

2»: ENDCLN 

L10034: 

TRAP 



DUFLG 
1* 



CSRADDR.R5 

<K),TSSR(R5) 

PC,WAI T F 



CICLEAN 



j "DROPPED" FLAG IS SET ON... 

»... AND GROSS CONTROLLER FAULT... 

I... DON'T TRY TO XCT CLEANUP CODE. 

, AODRESS Or TSV REGISTERS ON UNIBUS 
I DO SOFT INIT 



THE REPORT CODING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS, 



L*RPT:: 



15: 



2*: 



BGNRPT 

PRINTS 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

BEQ 

BPL 

BIT 

BNE 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

CMP 

BNE 

PRINTS 

MOV 

MOV 



•DEVSUM 

<K)EVSUM,-(SP) 

♦1,-CSP) 

SP.RO 

c;pnts 

44.SP 

R2,-(SP) 

R3.-CSP) 

R4.-CSP) 

0ERTABL.R4 

R3 

(R4),R2 

41 

4$ 

$61114, R2 

2i 

#tC7777,R2 

OOEV0NL.R3.R2 

R2.-CSP) 

R3.-CSP) 

*OEVONL,-(SP) 

*J,-CSP 

SP.RO 

CIPNTS 

01C.SP 

M 

R2, 0160000 

3$ 

00EVNXR.R3 

R3. -CSP) 

ODEVNXR.-CSP) 



l GET START OF ERROR TABLE. 

\ CLEAR UMIT NUMBER 

i GET ERROR TABLE ENTRY 6 TEST IT 

5 ZERO If" UNIT NOT RUN 

t WAS UNIT DROPPED? 

i BR IF YES 

$ GET ERROR COUNT FIELD 

; PRINT 



BR IF NO 



NUN-EXISTENT? 



CZTKEA TK25 FRT END FUNC *1 MACRO M1200 

CLEAN-UP ANO REPORT COOING SECTIONS 
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BIO 
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SEQ 118 





023012 


012746 


000002 




MOV 




023016 


010600 






MOV 




023020 


104416 






TRAP 




023022 


06? 706 


000006 




ADO 


3989 


023026 


000431 






BR 


3990 


023030 


020227 


160001 


3${ 


CMP 


3991 


023034 


001012 






BNE 


3992 


023036 








PRINTS 




023036 


010346 






MOV 




023040 


012746 


023337 




MOV 




023044 


012746 


000002 




MOV 




023050 


010600 






MOV 




023052 


104416 






TRAP 




023054 


062706 


000006 




ADD 


3993 


023060 


000414 






BR 


3994 


023062 


042/02 


170000 


30$} 


BIC 


3995 


023066 








PRINTS 




023066 


010246 






MOV 




023070 


010346 






MOV 




023072 


012746 


023420 




MOV 




023076 


012746 


000003 




MOV 




023102 


010600 






MOV 




023104 


104416 






TRAP 




023106 


062706 


000010 




ADO 


3996 


023112 


062704 


000002 


41; 


ADO 


3997 


023116 


005203 






INC 


3998 


023120 


020427 


003330 




CMP 


3999 


023124 


103701 






BLO 


4000 


023126 


012604 






MOV 


4001 


023130 


C12603 






MOV 


4002 


023132 


012602 






MOV 


4003 


023134 
023134 






L10035: 


ENDRPT 




023134 


104425 






TRAP 


4004 












4005 












4006 


023136 


045 


116 


045 DCVSUHi 


.ASCIZ 


4007 


023173 


045 


101 


040 Of.VONLt 


.A5CIZ 


4008 


023255 


045 


101 


040 DEVMR: 


.ASCIZ 


4009 


02333/ 


045 


101 


040 DEVNRD: 


.ASCIZ 


4010 


023420 


04;* 


101 


040 OEVQRQ: 


.ASCIZ 


4011 










.EVEN 


4014 












4021 












402 7 












4035 













♦2,-(SP) 

SP.RO 

C$PNTS 

♦6.SP 

4$ 

R2, +160001 

30$ 

+0EVNRD,R3 

R3.-CSP) 

+OEVNRD.-CSP) 

♦2,-CSP) 

SP.RO 

C$PNTS 

+6.SP 

4$ 

+'C7777,R2 

+OEVDR0,R3,R2 

R2.-CSP) 

R3.-CSP) 

♦OEVDRO.-CSP) 

♦3,-CSP) 

SP.RO 

C$PNTS 

♦10. SP 

♦2.R4 

R3 

R4.+ERTABE 

1$ 

CSP)»,R4 

(SP)>,R3 

<SP)* t R2 



C$RPT 



l WAS WIT NOT READY AT STARTUP? 
I BR IF NO, 



j UNUSED, 



/**-6ADEVICE STATUS SUMMARY j*N/ 

/*A UNIT *03*A CONTROLLER READY, ERRORS • #0*N/ 
/#A IHIT *03*A DROPPED, NON-EXISTENT REGISTER**/ 
/*A \M11 #OS*A DROPPED, NOT READY AT STARTUP^/ 
/*A UNIT JD3DA DROPPED, ERRORS « *0#N/ 



C2TKEA TK25 FRT ENO FUNC 
TEST 1: BUS RESET TEST 



4037 
4038 
4039 
4040 
4041 
4043 
4043 
4044 
4045 
4046 
4047 
4046 
4049 
4050 
4051 
405? 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 



Ql 
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SEQ 119 



4077 
40 78 
4079 
4084 
4085 
4086 
4087 
4068 
4089 
4090 



4091 
409? 

4095 



023470 
023470 
023470 
0234 74 
023502 
023506 
023512 
023516 
023524 
023524 

023526 
02352b 
023526 

023530 
OC353C 
Q2353£ 



.SBTTL TEST ij BUS RESET TEST 

THIS TEST VERiriES THAT THE MOOULE'S DEVICE REGISTERS ARE 
ACCESSIBLE ON THE BUS (SUBTEST t) AND THEN CHECKS THAT THE 
BUILT-IN INITIALIZATION SELF-TEST HICROOI AGNOSTIC OID NOT FINO 
ANY BASIC PROBLEMS IN THE MODULE, AREAS OF LOGIC TESTED BY THE 
SELF- TEST SEQUENCE ARE AS FOLLOWS i ROM AND PIPELINE REGISTER, 
SEQL€NCtR. INTERNAL BUSES, 2901 MICROPROCESSOR, ANO, RAM. THIS 
TEST INITIALIZES THE CONTROLLER BY ISSUING THE BUS INIT SIGNAL 
VIA A RESET INSTRUCTION, OR BY WRITING INTO THE TSSR REGISTER, 
WAITS A PERIOO OF TIME (TO ALLOW THE CONTROLLER'S INITIALIZATION 
MICROOIAGNOSTIC SEQUENCE TO BE COMPLETEO), AND THEN CHECKS THE 
CONTENTS OF THE TSSR REGISTER. SUCCESSFUL INITIALIZATION IS 
INDICATED BY SUBSYSTEM READY (5SR) AM) NEED BUFFER ACORESS (NBA) 
BITS BEING SET (1) AND ALL OTHER BITS (EXCEPT A17 AM) A16 ANO 
OFL, WHICH ARE IGNORED FOR THIS TEST) BEING CLEAR (0). IF THE 
CONTENTS OF TSSR ARE NOT AS EXPECTED, AN ERROR REPORT IS ISSUED 
LISTING THE EXPECTED DATA, ACTUAL DATA, AND THE DISCREPANCIES. 
THE ERROR REPORT ANALYZES THE TSSR CONTENTS ANO DISCERNS AND 
REPORTS ONE OF THREE POSSIBILITIES 

1. TSSR CONTENTS ARE AMBIGUOUS (ANY OF BITS 11-14 ARE SET, 
OR STATES OF SSR ANO SC BITS DO NOT CORRESPOND TO THE 
APPARENT ERROR COOE IN BITS 0-5): INDICATES THAT THE 
TSSR CONTENT CANNOT BE TRUSTED. INDICATES A 
CATASTROPHIC CONTROLLER MALFUNCTION. THIS IS A FATAL 
ERROR (EXECUTION IS ABORTED). FIELD ACTION WOULD BE TO 
REPLACE THE CONTROLLER. IF THE CONTROLLER ITSELF IS BEING 
DEBUGGED. THE PROGRAM SHOULD BE RESTARTED WITH LOOP ON 
ERROR ENABLED IN ORDER TO PROBE FOR THE PROBLEM. 

2, SSR • 0. SC • AND THE ERROR COOE IN BITS 0-5 IS IN 
THE RANGE 17-13: THIS IS A FATAL ERROR. THE ERROR 
COOE IS DECOOED ANO THE APPROPRIATE DESCRIPTION GIVEN. 
INOICATES THAT A SERIOUS PROBLEM EXISTS, 



BGNTST 



OOf>037 
012737 
00503 7 
012700 
004737 
012737 

005003 



104402 



1C4433 
004737 



002170 
005672 
003100 
023704 
017232 
000005 



002146 



002164 



TILQOP: 



CLR 


FATFLG 


MOV 


♦EPRTl.EPRTSW 


CLR 


KTFLG 


MOV 


♦ TSUID.RO 


JSR 


PC.TSTSETUP 


MOV 


#5, ,LOOPCNT 



CLR 
BGNSUB 



R3 



U:: 

iCLEAR FATAL ERROR FLAG 
j SET UP ERROR MESSAGE SWITCH 
jHQLQ OFF KT11 

lASCII MESSAGE TO IDENTIFY TEST 
lOO INITIAL TEST SETUP 
jPERFORM 5 ITERATIONS 

lUSE R3 AS FATAL ERROR FLAG 

i//////////// BEGIN SUBTEST /////'///:// 

Tl.lt 

TRAP CIBSU8 



016744 



BRESET 

JSR PC t WAlTF 



j ISSUE. A BUS RESET 
jWAXT FQR READY 



TRAP 



CJRESET 



9iJf EA iT K gSs F BisiV°Tiy¥ c n 
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4094 

4095 
4096 
409? 
4098 
4099 
4103 



4104 
4105 
4106 



4107 



023536 
023542 
023544 
023550 
023554 
023556 
023560 
023560 
023562 
023564 
023566 
023570 
023572 
023572 
023572 
023572 



016501 
010102 
042702 
052702 
020102 
001405 

104455 
000145 

003603 
011566 
005203 



104403 



000000 

176277 
002200 



10*5 



MOV 
MOV 
BIC 
BIS 
CMP 
BEQ 
ERRDF 



INC 
ENDSUB 



TSSR(R5),R1 jGET THE CONTENTS Of TSSR 

R1.R2 iSTART SETUP OF EXPECTED TSSR 

*t£<HIADDR!0FL>,R2 iCLEAR OUT UNUSED BITS 
♦SSRIN8A.R2 |R4 HAS EXPECTED CONTENTS 



R1.R2 

101 

ERRNO , SFHERR , SFFMSG 



R3 



SEQ 120 



I COMPARE EXPECTED TO RECEIVED 

j BRANCH IF COMPARE 

\ REPORT A FATAL ERROR 

TRAP CIERDF 
.WORD 101 
.WORD SFHERR 
.WORD SFFMSG 

I SET THE FATAL ERROR FLAG 

l\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10037 t 

TRAP CIESUB 



CZTKEA TK25 FRT END FUNC *1 
TEST t: BUS RESET TEST 



4109 


023574 


005703 




4110 


023576 


001402 




4111 


023600 


004737 


017776 


4112 


023604 


005003 




4113 








4114 








4115 


023606 
023606 








023606 


104402 




4116 








4117 


023610 


005065 


000000 


4118 


023614 


004737 


016744 


4119 023620 


016501 


000000 


4120 


023624 


010102 




4121 


023626 


042702 


176277 


4122 


023632 


052702 


002200 


4123 


023636 


020102 




4124 


023640 


001405 




4128 


023642 








023642 


104455 






023644 


000146 






023646 


003550 






023650 


011566 




4129 


023652 


005203 




4130 


023654 






4131 


023654 
023654 








023654 


104403 




4132 








4133 








4134 


023656 


005703 




4135 


023660 


001402 




4136 


023662 


0O4737 


017776 


4137 


023666 


0O4737 


017200 


4138 


023672 


103002 




4139 


023674 


000137 


023524 


4140 


023700 








023700 


104432 






023702 


000022 




4141 








4142 








4143 








4144 








4145 








4146 


023704 


111 


156 


4147 








4148 


023724 
023724 








023724 


104401 




4149 








4150 
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205; 




TST 
BEQ 
JSR 
CLR 




R3 

20$ 

PCCKDROP 

R3 





BGNSU6 



10$: 



CLR 


TSSRCR5) 


JSR 


PC.MAITF 


MOV 


TSSR(R5),R1 


MOV 


R1.R2 


BIC 


♦tC<HIADDR!0FL>,R2 


BIS 


*SSR!N6A,R2 


CMP 


R1.R2 


BEQ 


101 


ERRDF 


ERRNO.SFIERR.SFFMSG 


INC 


R3 


ENDSUB 





TST 


R3 


BEQ 


20$ 


JSR 


PCCKDROP 


JSR 


PCTSTLOOP 


BCC 


40$ 


JMP 


T1L00P 


EXIT 


TST 



20$: 



40$: 



t ♦ 

{LOCAL TEXT MESSAGES FOR TEST 

I - 

151 TST1ID: .ASCIZ ■ Ini t lal >zat ton* 
.EVEN 
ENOTST 



SEQ 121 



{010 WE HAVE FATAL ERROR ? 
{BRANCH IF NOT 

jGO DROP THIS UNIT, IF ALLOWED 
{RESET FATAL ERROR FLAG 



{//////////// BEGIN SUBTEST //////////// 

T1.2: 

TRAP C$BSUB 

{WRITE TO ISSUE A SOFT RESET 
>WAIT FOR READY TO SET 
{GET REGISTER TSSR DATA 
{START SETUP OF EXPECTED TSSR 
{CLEAR OUT UNUSED BITS 
lR4 HAS EXPECTED CONTENTS 
{COMPARE EXPECTED TO RECEIVED 
{BRANCH IF COMPARE 
{REPORT A FATAL ERROR 



{SET THE ERROR FLAG 



TRAP 

.WORD 
.WORD 
.WORD 



C$ERDF 
102 

SFIERR 
SFFMSG 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10040: 

TRAP C$ESUB 



{FATAL ERROR DETECTED ? 

{BRANCH IF NOT 

{SEE IF TIME TO DROP UNIT 

{SHOULD WE DO ITERATIONS ? 

{BRANCH IF NOT 

{LOOP UNTIL COUNT EXPIRED 

{ALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
L 10036 



L10036: 



TRAP 



C$ETST 



CZTKEA TK25 FRT END FUNC 41 
TEST 2; RAM TEST 



4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
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SEQ 122 



4201 
4202 

4203 
4204 
4205 



4206 



023726 

023726 

023726 005037 002170 

023732 012737 005672 

023740 005037 003100 

023744 
023744 
033744 104402 



.66TTL TEST 2j RAM TEST 

THIS TEST VERIFIES THAT ALL LOCATIONS OF THE RAM ON THE CONTROLLER 
CAN PROPERLY STORE AMD READ BACK ALL DATA PATTERNS, ANO THAT 
EACH RAM LOCATION IS UNIQUELY ADDRESSED CLE,, THAT ONE ANO ONLY 
ONE LOCATION IS ACCESSED BY ANY PARTICULAR ADDRESS). THESE 
TESTS ARE PERFORMED BY THREE SUBTESTS, DESCRIBED BELOW. A 
BYPRODUCT OF THESE TESTS IS A VERIFICATION OF TWO REGISTERS IN 
THE 2901 ANO THE CAPABLITY OF THE 2901 TO CORRECTLY PERFORM AN 
ADD. 



TEST 2, SUBTEST 1: - 

THIS SUBTEST VERIFIES EACH RAM LOCATION BY FIRST PLACING THE 
CONTROLLER INTO MAINTENANCE MODE BY WRITING INTO THE LOW BYTE OF TSDB 
ANO THEN PERFORMING THE FOLLOWING SEQUENCE FOR EACH ADDRESS 
0-7777 (OCTAL): 

1. THE ADDRESS TO BE TESTEO IS LOADED INTO THE TSDB (VIA A 
WORD WRITE). 

2. THE ADDRESSED RAM LOCATION IS WRITTEN, THEN READ INTO 
THE LOW BYTE OF TSBA, BY WRITING A DATA BYTE INTO THE 
LOW BYTE OF TSDB. 

3. THE LOW BYTE OF TSBA IS CHECKED TO SEE IF IT CONTAINS 
THE DATA PATTERN ORIGINALLY WRITTENi A DISCREPANCY IS 
REPORTED AS AN ERROR. 

4. THE ADORESS OF THE LOCATION BEING TESTED IS AGAIN 
WRITTEN INTO TSDB CWORD WRITE), TO CAUSE THE LOCATION 
LNDER TEST TO AGAIN BE READ INTO THE LOW BYTE OF TSBA. 
THE LOW BYTE OF TSBA IS AGAIN CHECKED ANO DISCREPANCIES 
REPORTED, 

5. THE HIGH BYTE OF TSBA IS CHECKEDt IT SHOULD CONTAIN 
T _ SUM OF THE HIGH ANO LOW BYTES LAST WRITTEN INTO 
TSDB AS A WORD. A DISCREPANCY IS REPORTED AS A 2901 
PROBLEM. 

6. THE CONTENT OF TSSR IS CHECKEDj SETTING OF THE SC BIT 
IS IGNORED. OTHER DISCREPANCIES IN TSSR ARE REPORTED, 

BGNTST 



002146 







T2: : 


CLR 


FATFLG 


l CLEAR FATAL ERROR FLAG 


MOV 


OEPRU.EPRTSW 


i SET UP ERROR MESSAGE SWITCH 


CLR 


KTFLG 


jHOLD OFF KT11 



BGNSUB 



l //////////// BEGIN SUBTEST ////.*/•// ■'// 

T2,lt 

TRAP CJBSU6 



fi 
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4211 023746 


012700 


024672 




MOV 


«TST2ID,R0 


4212 023752 


004737 


017232 




JSR 


PC.TSTSETUP 


4213 023756 


012737 


000002 


002164 


MOV 


02.L00PCNT 


4214 023764 






T2L0QP: 






4215 023764 


004737 


016470 




JSR 


PC.SOFINIT 


4216 023770 


103405 






BCS 


20$ 


4220 023772 


010001 






MOV 


R0.R1 


4221 023774 








ERRDF 


ERRNO.SFIERR.SFIMSG 


023774 


104455 










023776 


000311 










024000 


003550 










024002 


011506 










4222 024004 


012704 


000002 


20$: 


MOV 


02, R4 


4223 024010 






25$: 






4224 












4225 024010 


110402 






MOVB 


R4.R2 


4226 024012 


110465 


177777 




MOVB 


R4 t TS0BHCR5) 


4227 024016 


110265 


1^7776 




MOVB 


R2.TSDBLCR5) 


4228 024022 


116501 


177776 




MOVB 


TSBALCR5"),R1 


4229 024026 


120102 






CMPB 


R1.R2 


4230 024030 


001401 






BEQ 


30$ 


4234 024032 








ERRHRD 


ERRN0.TSBAM2. EXPREC 


024032 


104456 










024034 


000312 










024036 


024530 










024040 


016170 










4235 024042 






30$: 






4236 












4237 024042 


005204 






INC 


R4 


4238 024044 


020427 


000400 




CMP 


R4 , $400 


4239 024050 


001357 






BNE 


25$ 


4240 024052 


005002 






CLR 


R2 


4241 024054 


005304 






DEC 


R4 


4242 024056 


110402 




40$: 


MOVB 


R4.R2 


4243 024060 


110465 


177777 




MOVB 


R4.TSDBHCR5) 


4244 024064 


116501 


177776 




MOVB 


TSBAL(R5),R1 


4245 024070 


120102 






CMPB 


R1.R2 


4246 024072 


001404 






BEQ 


45$ 


4250 024074 








ERRHRD 


ERRN0.TSBAM2. EXPREC 


024074 


104456 










024076 


000313 










024100 


024530 










024102 


016170 










4251 024104 






45$: 


CKLOOP 




024104 


104406 










4252 024106 


005304 






DEC 


R4 


4253 024110 


022704 


000002 




CMP 


02, R4 


4254 024114 


001360 






BNE 


40$ 


4255 












4256 024116 








ENOSUB 




024116 












024116 


104403 











SEQ 123 



I ASCII MESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
I PERFORM 2 ITERATIONS 

tOO INITIALIZE ON CONTROLLER 

j BR IF INIT WAS OK 

j CONTENTS OF TSSR REGISTER 

jFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

j SET RAM ADDRESS AT TWO 



j EXPECTED DATA FROM WRAP-AROUNO 
j LOAD ADDRESS INTO TSD6 
I LOADS DATA INTO RAM LOCATION 
j READS WRAP DATA 
jDOES WRITTENCWRAP) • READ 
:BR IF OK, THEY ARE EQUAL 
iDATA NOT WRAPPED CORRECTLY 

TRAP 
.WORD 
.WORD 
.WORD 



I NEXT ADDRESS 
jENO OF RAM MEMORY CHECK 
tLOOP TILL. ALL RAM WRITTEN 
l CLEAR OUT R2 HIGH BITS 
jSET BACK TO 377 
iGET DATA PATTERN BACK IN SHAPE 
j LOAD UP RAM ADDRESS POINTER 
j READ RAM CONTENTS BACK 
jCHECK WITH DATA WRITTEN 
iBR IF OK. DATA IN - DATA OUT 
j WRITTEN DATA NOT - TO READ 

TRAP 
.WORD 
.WORD 
.WORD 
i SCOPE LOOP 

TRAP 
tDROP DATA COUNTER (PATTERN) 
I AT LOC TWO YET 
jBR, IF NOT AT TWO YET 



C$ERDF 
201 

SFIERR 
SFIMSG 



C$ERHRD 
202 
TSBAM2 
EXPREC 



C$ERHRD 
203 
TSBAM2 
EXPREC 

C$CLP1 



4257 



j\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 10042: 

TRAP C$ESU6 



CZTKEA TK25 FRT END FUNIC 41 
TEST 2 x RAM TEST 



4259 
4260 



4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4272 
4273 



1274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4286 



4267 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4304 



4305 
4306 
4307 
4308 
4309 
4310 



024120 
024120 
024120 



024122 
024126 
024130 
024132 
024132 
024134 
024136 
024140 
024142 
024144 
024150 

024150 
024154 
024160 
024164 
024166 
024170 
024170 
024172 
024174 
024176 
024200 

024200 
024202 
024206 

024210 
024212 
024214 
024214 
024220 
024224 
024226 
024230 
024232 
024232 
024234 
024^36 
024240 
024242 
024246 
024252 
024256 
024262 
024264 



104402 



004737 
105405 
010001 

104455 
000314 
003550 
011506 
005002 
012704 



110465 
110265 
116501 
120102 
001404 

104456 
000315 
024530 
016170 



005204 
020427 
001360 

005304 
005002 

110465 
116501 
005002 
120102 
001404 

104456 
000316 
024612 
016170 
012702 
110465 
110265 
116501 
120102 
001404 
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SEQ 124 



016470 



000002 



177777 
177776 
177776 



000400 



177777 
177776 



000377 
177777 

177776 
177776 



TEST 2, SUBTEST 2 



I//////////// BEGIN SUBTEST //////////// 

T2.2: 

TRAP CJBSU6 



THIS SUBTEST WRITES RAM WITH ALL ZEROS 

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



20$: 
25$: 



JSR 


PC.SOFINIT 


I DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


{BR IF IMIT WAS OK 




MOV 


R0.R1 


{CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO f SFIERR,SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


204 






.WORD 


SFIERR 






.WORD 


SFIMSG 


CLR 


R2 


{TEST DATA - 





MOV 



MOVB 

MOVB 

MOVB 

CMPO 

BEQ 

ERRHRD 



*2,R4 



R4, 1SDBHCR5) 

R2.TSDBLCR5) 

TSBAL(R5),R1 

R1.R2 

30$ 

ERRN0.TSBAM2, EXPREC 



30$: 





INC 


R4 




CMP 


R4 , 4400 




BNE 


25$ 


35$: 


DEC 


R4 




CLR 


R2 


40$: 








MOVB 


R4.TSDBHCR5) 




MOVB 


TSBAL(R5),R1 




CLR 


R2 




CMPB 


R1.R2 




BEQ 


43$ 




ERRHRD 


ERRN0.TSBAM3, EXPREC 



{STARTING RAM ADDRESS 



{LOAD ADDRESS INTO TSDB 

{LOADS DATA INTO RAM LOCATION 

{READS WRAP DATA 

{DOES WRITTEN(WRAP) - READ ? 

}BP IF OK, THEY ARE EQUAL 

{DATA NOT WRAPPED CORRECTLY 

TRAP C$ERHRD 
.WORD 205 
.WORD TSBAM2 
.WORD EXPREC 



iNEXT ADDRESS 

lENO OF RAM MEMORY CHECK 

{BR. MORE RAM TO GO 

{SET BACK TO 377 
I SET to ALL ZEROS 

{LOAD UP THE ADDRESS FOR RAM 
{READ THE RAM CONTENTS BACK 
{LOOKING FOR 000000 (EXPECTED) 
{BOTH SHOULD BE OOOOOOOO BINARY 
iBR, IF DATA IS GCOO 
{CHARACTERISTICS DATA NOT CORRECT 



43$: 



MOV 


♦0003 7 7, R2 


MOVB 


R4.TSDBHCR5) 


MOVB 


R2.TSDBLCR5) 


MOVB 


TSBALCR5),R1 


CMPB 


R1.R2 


BEQ 


45$ 



TRAP 
.WORD 
.WORD 
.WORD 
{SET ALL ONES WORD 
{LOAD UP RAM ADDRESS POINTER 
{WRITE DATA INTO RAM 
{READ RAM CONTENTS BACK 
{CHECK WITH DATA WRITTEN 
{BR IF OK. DATA IN - DATA OUT 



C$ERHRD 
206 

TSBAM3 
EXPREC 



CZTKEA TK25 FRT END FUNC *1 
TEST 2; RAM TEST 

4314 024266 
024266 104456 
024270 000317 
024272 024530 
024274 016170 

4315 024276 
024276 104406 
024300 005304 
024302 022704 000002 
024306 001342 
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4316 
4317 
4318 
4319 
4320 



4321 



024310 
024310 
024310 104403 



45$: 



ERRHRD ERKNO ♦ TSBAM2 , EXPREC 



CKLOOP 



PEC 


R4 


CMP 


02, R4 


BNE 


40* 



ENOSUB 





SEQ 125 


I WRITTEN DATA NOT - TO READ 




TRAP 


CJERHRD 


.WORD 


207 


.WORD 


TSBAM2 


.WORD 


EXPREC 


j SCOPE LOOP 




TRAP 


C$CLP1 


{DROP RAM ADDRESS POINTER 




|AT LOC 2 YET 




iBR, IF NOT AT TWO YET 





j\\\\\\\\\\\\\ END SUBTEST WWWWWV \ 

L10043: 

TRAP CSE^UB 



CZTK 
TEST 



KEA TK25 FRT 


END FUNC 41 


IT 2: 


: RAM TEST 




4323 








4324 


024312 
024312 








024312 


104402 




4325 








4326 








4327 








4328 








4329 








4330 








4331 


024314 


004737 


016470 


4332 


024320 


103405 




4336 


024322 


010001 




4337 


024324 








024324 


104455 






024326 


000320 






024330 


003550 






024332 


011506 




4338 


024334 


012702 


177777 


4339 


024340 


012704 


000002 


4340 


024344 






4341 


024344 








024344 


104404 




4342 


024346 


110465 


177777 


4343 


024352 


110265 


177776 


4344 


024356 


116501 


177776 


4345 


024 362 


120102 




4346 


024364 


001404 




4350 


024366 








024366 


104456 






024370 


000321 






024372 


024530 






024374 


016170 




4351 


024376 






4352 


024376 
024376 








024376 


104405 




4353 








4354 


024400 


005204 




4355 


024402 


020427 


000400 


4356 


024406 


001356 




4i57 








4358 


024410 


005304 




4359 


024412 






4360 


024412 


012702 


000377 


4361 


024416 


005001 




4362 


024420 


110465 


177777 


4363 


024424 


116501 


177776 


4364 


02' 4 30 


120102 




4365 


0244 32 


001404 




4369 


024434 








024434 


104456 






024436 


000322 






024440 


024612 






024442 


016170 




4370 


024444 


005002 




4371 


024446 


110465 


177777 
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SEQ 126 



30$ 



,//////////// BEGIN SUBTEST //////////// 

T2.3; 

TRAP CfBSUB 



TEST 2, SUBTEST 3 



THIS SUBTEST WRITES RAM WITH ALL ONES 
THEN WALKS A ZERO WORD DOWN THROUGH MEMORY 



JSR 


PC.SOFINIT 


BCS 


20$ 


MOV 


RO.Ri 


ERRDF 


ERRNO,SFIERR,SFIMSG 



20*2 


MOV 


4177777.R2 




MOV 


*2,R4 


25$; 


BGNSEG 






MOVB 


R4.TSDBHCR5) 




MOVB 


R2.TSDBLCR5) 




MOVB 


TSBAL(R5),R1 




CMPB 


R1,R2 




BEQ 


30$ 




ERRHRD 


ERRN0.TSBAM2, EXPREC 



ENDSEG 





INC 


R4 




CMP 


R4,#400 




BNE 


25$ 


35$i 


DEC 


R4 


40$: 








MOV 


♦000377, R2 




CLR 


Rl 




MOVB 


R4.TSDBHCR5) 




MOVB 


TSBAL(R5),R1 




CMPB 


R1,R2 




BEQ 


43$ 




ERRHRD 


ERRN0.TSBAM3, EXPREC 



43$: CLR R2 

MOVB R4.TSDBHCR5) 



{DO INITIALIZE ON CONTROLLER 
j BR IF INIT WAS OK 
{CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 
{SET DATA AT ALL ONES 
sSET RAM ADDRESS AT TWO 



C$ERDF 
208 

SFIERR 
SFIMSG 



!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP CSBSEG 

{LOAD ADDRESS INTO TSDB 

iLOAOS DATA INTO RAM LOCATION 

tREADS WRAP DATA 

iDOES WPITTEN(WRAP) - READ ? 

{BR IF OK, THEY ARE EQUAL 

; DATA NOT WRAPPEP CORRECTLY 

TRAP C$ERHRD 
.WORD 209 
.WORD TSBAM2 
.WORD EXPREC 

;<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

iNEXT ADDRESS 

i END OF RAM MEMORY CHECK 

jBR. MORE RAM TO GO 



{SET BACK TO 377 



i SET UP EXPECTED DATA 

i clean out register 

i SELECT ADDRESS IN RAM 
l PICK UP RAM CONTENTS 
:IS MEMORY STIL1 ALL ONES 
j BR, IF OK CALL 
j MEMORY CHANGED 



REGISTER 



ONES) 
AFTER 



} SET UP 
{LOAD UP 



NEW EXPECTED 
RAM ADDRESS 



ALL ONES 
TRAP 
.WORD 
.WORD 
.UORP 

POINTER 



WRITE 
C$ERHRD 
210 

TSBAM3 
EXPREC 



CZTKEA TK25 FRT END FUNC 01 
TEST 2; RAM TEST 
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4372 
4373 
4374 
4375 
4379 



4380 

4381 
4382 
4383 
4384 
4385 



4386 
4387 
4388 
4389 

4390 



4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 



024452 
024456 

024462 
024464 
024466 
024466 
024470 
024472 
024474 
024476 
024476 
024500 
024502 
024506 

024510 
024510 
024510 

024512 
024516 
024520 
024524 
024524 
024526 



024530 
024612 
024672 

024676 
024676 
024676 



110265 
116501 
120102 
001404 

104456 
000323 
024530 
016170 

104406 
005304 
022704 
001341 



104403 

004737 
103002 
000137 

104432 
000150 



040 
127 
122 



104401 



177776 
177776 



45$: 



MOVB 

MOVB 

CMPB 

BEQ 

ERRHRD 



CKLOOP 



R2.TSDBLCR5) 

TSBAL(R5),R1 

R1.R2 

45$ 

ERRN0.TSBAM2.EXPREC 



000002 



DEC 


R4 


CMP 


02, R4 


BNE 


40$ 



ENDSUB 



017200 
023764 



JSR 


PCTSTLOOP 


BCC 


63$ 


JMP 


T2L00P 


EXIT 


TST 



63$: 



LOCAL TEXT MESSAGES TOR TEST 



SEQ 127 



tWRITE DATA INTO RAM 
{READ RAM CONTENTS BACK 
, CHECK WITH DATA WRITTEN 
I BR IF OK, DATA IN - DATA OUT 
{WRITTEN DATA NOT - TO READ 

TRAP 
.WORD 
.WORD 
.WORD 
j SCOPE LOOP 

TRAP 
;DROP RAM ADDh^SS POINTER 
} CHECK LOC TWO 
jBR, IF NOT AT IOC 2 YET 



C$ERHRD 
211 

TSBAM2 
EXPREC 

C$CLP1 



;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10044: 

TRAP C$ESU6 



{00 WE NEED TO 
: BRANCH IF NOT 
{EXECUTE AGAIN 
{ALL DONE THIS 



ITERATE TEST ? 



TEST 



TRAP 
.WORD 



C$EXIT 
L10041 



127 
162 
141 



J 62 
153 
155 



TSBAM2 
TSBAM3 
TST2ID 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



' Write to TSOB Not Equal to Read of TSBA Low Byte' 
'Write To RAM Location Modified Another Location' 
♦Rom' 



1.10041; 



TRAP 



C$ETST 



CZTKEA TKP5 FRT END FUNC 41 
TEST 3: COMMAND REJECT 

4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 



L10 
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,SBTTL TEST 3: COMMAND REJECT 



SEQ 128 



THIS TEST VERIFIES THAT ALL COMMANDS OTHER THAN WRITE 
CHARACTERISTICS ARE REJECTED DUE TO THE NEED BUFFER ADDRESS 
(NBA) BIT BEI.MG SET IN TSSR, AND THAT THE TSBA AND TSSR 
REGISTERS ARE LEFT IN THE PROPER STATE AFTER EACH COMMAND IS 
REJECTED. THIS TEST CHECKS MICROPROCESSOR SEQUENCING , BASIC 
COMMANO DECOOING AND DATI DMA HANDLING. THIS TEST CONTAINS TWO 
SUBTESTS: SUBTEST 1 SEQUENCES THROUGH ALL COMMANO WORDS (OTHER 
THAN WRITE CHARACTERISTICS) WITH THE INTERRUPT ENABLE (IE) BIT 
CLEAR ANO VERIFIES THAT AN INTERRUPT IS NOT GENERATED BY THE 
REJECTED COMMANO t SUBTEST 2 PERFORMS SIMILARLY TO SUBTEST 1 BUT 
SETS THE IE BIT IN EACH COMMAND WORD AND VERIFIES THAT AN 
INTERRUPT IS GENERATED WHEN THE COMMAND If, REJECTED. SUBTEST 1 
SETS UP THE INTERRUPT SERVICE ROUTINE To FLAG UNEXPECTED 
INTERRUPTS, THE COMMANO WORD IN THE COMMANO BUFFER IS 
INITIALIZED TO 100000 (OCTAL) ANO THE REMAINING THREE v'ORDS IN 
THE COMMAND BUFFER ARE SET TO KNOWN UNIQUE PATTERNS. T^EN THE 
FOLLOWING SEQUENCE IS PERFORMED: 

1. INITIALIZE THE CONTROLLER BY WRITING INTO THE TSSR; 
PROPER INITIAL CONDITIONS ARE VERIFIED. 

2. TSDB IS WRITTEN WITH ADDRESS OF THE COMMAND BUFFER TO 
START PROCESSING. 

3. THE PROGRAM WAITS FOR SSR TO SET t IF SSR DOES NOT SET, 
AN ERROR REPORT IS ISSUED ANO THE TEST IS ABORTED. 

4. THE CONTENTS OF TSSR ARE CHECKED. TSSR IS CORRECT IF 
IT CONTAINS EITHER OCTAL 102206 OR 102306 (BIT 6 
DEPENOS UPON THE STATE OF THE TAPE TRANSPORT). 

5. THE CONTENTS OF TSBA ARE CHECKED. TSBA SHOULD CONTAIN 
THE INITIAL COMMAND BUFFER ADDRESS (LOADED IN STEP 2) 
PLUS 10 (OCTAL)i I.E., TSBA SHOULD POINT TO 1HE WORD 
JUST AFTER THE COMMAND PACKET (NOTE THAT 4 COMMANO 
PACKET WORDS ARE ALWAYS FETCHED). 

6. USING THE MAINTENANCE MODE WRAPAROUND FUNCTIONS. THE 
COMMAND IMAGE BLOCK IN THE CONTROLLER'S RAM (LOCATIONS 
201-210 (OCTAL)) ARE CHECKED, THE IMAGE SHOULD CONTAIN 
A COPY OF THE FOUR COMMAND PACKET WORDS AS SET UP IN 
CPU MEMORY. 

7. THE COMMANO WORD IN THE COMMAND BUFFER IS INCREMENTED 
TO THE NEXT PATTERN NOT CONTAINING WRITE 
CHARACTERISTICS OR IE , THE REMAINING THREE WORD OF THE 
COMMANO BUFFER ARE SEQUENCED WITH PSEUOO-RANOOM DATA. 
IF THE COMMAND WORD HAS NOT REACHED ITS MAXIMUM VALUE 
(177777a), THE TEST SEQUENCE IS REPEATED. 



SUBTEST 2 IS IDENTICAL TO SUBTEST 1, EXCEPT THAT THE PROGRAM 



CZTKEA TK25 FRT END FWNC #1 
TEST 3: COMMAND REJECT 
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SEQ 129 



4458 
4459 
4460 
4461 

4462 
4465 
4464 
4469 
4470 
4471 
4472 
4473 



4474 
4475 



4476 
4477 
4478 
4479 

4480 
4481 
4485 
4486 



4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4498 



4499 
4500 

4501 



4502 
4503 
4507 



024700 
024700 
024700 
024 704 
024712 
024716 
024 722 
024 726 
024734 
024 734 
024734 
024734 

024736 
024736 
024742 
024744 
024 750 
024754 
024756 
024756 
024760 
024764 
024 766 
024 770 
024770 
024772 
024774 
024776 
025000 
0250O4 
025010 
025014 
025020 
025024 
025030 
025032 
025034 
025034 
025036 
025040 
025O42 
025044 
025050 
025050 
025052 
025052 
025054 
025056 
025062 
025064 
025064 
025066 
025070 



005037 
012737 
005037 
012700 
004737 
012737 



104402 



012700 
104441 
012704 
012703 
012314 

104404 
004737 
103405 
010001 

104455 
000455 
003550 
011506 
005037 
005037 
004737 
042714 
010465 
004737 
1034C7 
010001 

104455 
000456 
025655 
011520 

004737 

104406 

104410 
000164 
005737 
001404 

104456 
000457 
025733 



CAUSES THE IE BIT TO BE SET IN EACH COMMAND WORD AND THEN 
VERIFIES THAT AN INTERRUPT OCCURS, 



O0217C 
00567;? 
003100 
026143 
017232 



002146 



002164 



T3LO0Ps 



BGNTST 

CLR 
MOV 
CLR 
MOV 
JSR 
MOV 

BGNSUB 



000000 

025620 
002720 



016470 



5*s 



MOV 
MOV 
MOV 
6GMSEG 

JSR 
BCS 
MOV 
ERRDF 



002170 
002172 
017060 
000200 
177776 
016744 



10$: 



0177^4 



15*: 



JSR 
CKLOOP 



002172 



FATFLG 

♦EPRT1.EPRTSW 

KTFLG 

4TST3ID.R0 

PC.TSTSETUP 

O2..L00PCNT 



SETPRI OPRIOO 



*T3PACKET,R4 

0TSTBLK.R3 

CR3)*,(R4) 



T3j : 
j CLEAR FATAL ERROR FLAG 
j SET UP ERROR MESSAGE SWITCH 
{HOLD OFF KTll 

jASClI MESSAGE TO IDENTIFY TEST 
}D0 INITIAL TEST $r:TUP 
j PERFORM 2 ITERATK/'S 

j//////////// BEGIN SUBTEST //////////// 

T3.1: 

TRAP C$BSUB 

{LOWER PK*ORIV TO ALLOW INTERRUPTS 

MOV *PRICO,RO 
TRAP C$SPRI 
iGF.f THE ADDRESS OF COMMAND PACKET 
.BLOCK OF TEST DATA 
j INSERT THE NEXT TEST DATA WORD 
.>>>>>>>>>>,> BEGIN SEGMENT >>>>>>>>>>>> 



PC.SOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


JSR 


PC.CHKTSSR 


BIC 


4BIT7.CR4) 


MOV 


R4.TSDHCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T3SSR, PKTSSR 



PC.FATCHK 



ESCAPE SUB 



TST INTRECV 

BEQ 22$ 

ERRHRD ERRNO , T3INT , PKTSSR 



TRAP 

j DO SOFT INIT OF CONTROLLER 

{ BR If- SOFT INIT * OK 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

l CLEAR FATAL ERROR F L AC 

{CLEAR INTERRUPT RECEIVED FLAG 

j WAIT FOR READY, NON- AMBIGUOUS 

j DISABLE INTERRUPTS 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

tBR IF CARRY SET CGOOO RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

l INC AND CHECK FOR MORE THAN 25 

{LOOP ON ERROR, IF FLAG SET 

TRAP 
FATAL ERROR 
TRAP 
.WORD 
OCCUR ? 



C$8SEG 



C$ERDF 
301 

SFIERR 
SFIMSG 



jBY-PASS SUBTEST IF 



I DID AN INTERRUPT 
{BRANCH IF NOT 



TRAP 

.WORD 

,WQRD 



C$ERDF 

302 

T3SSR 

PKTSSR 

ERRORS 

C$CLP1 

CiESCAPE 
L10046-, 



CU.RHRQ 

303 

TSINT 



CZTKtA tk; 
TEST 3: I 



!5 FRT EN[ 
iOMMAND R( 



• ryNc 
:ject 



n 
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4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4519 



4520 

4521 
4522 
4523 
4524 
4525 
4529 



4530 
4531 
4532 
4533 
4537 



4 >38 



4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 



4549 

4550 
4551 
4552 



025072 
025074 
025100 
025104 
025110 
025114 
025116 
025122 
025124 
025126 
025126 
025130 
025132 
025134 
025136 
025136 
025140 
^?5144 
025150 
025152 
025154 
025156 
025156 
025160 
025162 
025164 



025166 
025172 
025174 
025174 
025176 
025200 
025202 
025204 
025204 
025204 
025206 
025210 
025214 
025220 
025222 
025226 
025232 
025234 

025240 

025240 
025240 

025242 
025246 
025250 



011520 
012702 
004737 
016501 
032701 
001402 
052702 
020201 
001404 

104456 
000460 
025630 
011520 

104406 
004737 
016501 
010402 
020102 
001404 

104456 
000461 
026071 
016170 



004737 
103404 

101*56 
000462 
004643 
016204 



104405 
011300 
042700 
020027 
001002 
062703 
020327 
103002 
000137 



104403 

C05737 
001402 
004737 



102206 
017060 
000000 
000100 

000100 



22$: 



25$: 



30$: 



MOV 
JSR 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRD 



CKLOOP 



017060 
177776 



010354 



35$: 



40$: 



JSR 
BCS 
ERRHRD 



ENDSEG 



177740 
000004 

000002 
003030 

024754 



45$: 



50$: 



ENDSU6 



002170 
017776 



4SC!NBA!SSR*TSREJ,R2 

PC.CHKTSSR 

TSSRCR5),Rl 

*0FL,R1 

25$ 

#0KL,R2 

R2.R1 

30$ 

ERRN0,T3NBA,PKTSSR 



JSR 


PC, o:\tssr 


MOV 


TSBACR5),R1 


MOV 


R4.R2 


CMP 


R1.R2 


BEQ 


35$ 


ERRHRD 


ERRN0,T3TSBA,EXPREC 



PC.CKRAM 

40$ 

ERRNO , PKTR AM , R AMERR 



MOV 


(R3),R0 


BIC 


*177740,RO 


CMP 


R0,*4 


BNE 


45$ 


ADD 


02, R3 


CMP 


R3,frTBLEND 


BHIS 


50$ 


JMP 


5$ 



SEQ 130 



.WORD PKTSSR 

j EXPECTED CONTENTS OF TSSR 

j WAIT TOR READY, NON-AMBIGUOUS 

I GET THE CONTENTS OF TSSR 

j IS OFF-LINE BIT SET ? 

» BRANCH IF NOT OFF-LINE 

jSET OFF-LINE IN EXPECTED DATA 

;DOES EXPECTED MATCH RECEIVED ? 

,DOES EXPECTED MATCH RECEIVED? 

I NBA NOT SET TO REJECT 

TRAP C$ERHRD 
.WORD 304 
.WORD T3NBA 
.WORD PKTSSR 

jl OOP ON ERROR ? 

TRAP C$CLP1 

{WAIT FOR READY, NON- AMBIGUOUS 

;GET TSBA REGISTER CONTENTS 

; START OF THE PACKET 

: COMPARE EXPECTED TO RECEIVED 

{ERROR IF NOT EQUAL 

; PRINT THE ERROP 6 EXPD/RECV 

TRAP CIERHRD 
.WORD 305 
.WORD T3TSBA 
.WORD EXPREC 



{SEE IF DATA IN RAM IS CORRECT 

{BRANCH IF PACKET IN RAM IS CORRECT 

{REPORT THE RAM ERRORCS) 

TRAP C$ERHRD 
.WORD 306 
.WORD PKTRAM 
.WORD RAMERR 

.<<<<<<*<<<<<< eno SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

i PACKET COMMAND WORD 

{GET BITS 0-4 

{DON'T TEST WRITE CHARACTERISTICS 

; BRANCH IF OK 

{GET NEXT WORD FROM DATA TABLE 

; REACHED END OF TABLE ? 

{BRANCH IF END OF TAP. F. 

{CONTINUE TEST WITH NEW DATA 

;\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10046: 

TRAP C$ESUB 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PCCKDROP 



jANY FATAL ERRORS ? 

iBRANiH IF NOT 

;TRT 10 DROP THE UNIT 



CZTKEA TK25 f'RT END F'UNC *i 

TEST 3 t COMMAND REJECT 
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SEQ 131 



4554 



4555 
4556 



4557 
4558 
4559 
4560 

4561 

4562 
4566 

4567 



4568 

4569 

4570 
4571 
4572 
4573 
4574 
4575 
4579 



4560 
4581 

4582 



4583 
4564 

4588 



4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4fc00 



025254 
025254 
025254 

025256 
025256 
025262 
025264 
025270 
025274 
025276 
025276 
025300 
025304 
025306 
025310 
025310 
025312 
025314 
025516 
025320 
025524 
025330 
025334 
025540 
025344 
025350 
025352 
025354 
025354 
025356 
025360 
025362 
025364 
025370 
025370 
025372 
0253 72 
025374 
025376 
025402 
025404 
025404 
025406 
025410 
025-412 
025414 
025420 
025424 
025430 
025454 
025456 
0254 hC 
025444 
025446 
025446 
025450 



104402 



012700 
104441 
012704 
012703 

012314 

104404 
0O4737 
103405 
010001 

104455 
000463 
003550 
011506 
005037 
005037 
004737 
052714 
010465 
004737 
103407 
010001 

104455 
000464 
025655 
011520 
004737 

104406 

104410 
000164 
005737 
001004 

104456 
000465 
026011 
011520 
012702 
004737 
016501 
032/01 
001402 
052^02 
020201 
001404 

104456 
000466 



000000 

025620 
002720 



016470 



002170 
002172 
017060 
000200 
177776 
016744 



017724 



002172 



102206 
017060 
000000 
000100 

000X00 



60$: 



5li 



BGN3UB 



SETPRI *PRIOO 



MOV *T3PACKET,R4 

MOV 0TSTBLK.R3 

MOV CR3)f,CR4) 
BGNSEG 



10ft 



151} 



22lj 



dhtx 



t//////////// BEGIN SUBTEST //////////// 

T3,2i 

TRAP CIBSUB 

■LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV ♦PRIOO.rtO 
TRAP CISPRI 

iGET THE ADDRESS OF COMMAS PACKET 

iSTART Of TEST DATA 

iPLACE NEXT DATA WORD IN PACKET 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 



JSR 


PC.SOFINIT 


BCS 


101 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


JSR 


pc.ch<tssr 


BIS 


#eiT7,(R4) 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


BCS 


151 


MOV 


R0,R1 


FRRDF 


ERRN0,T3SSR t PKTSSR 



TRAP 

iDO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

iSAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WOW) 
.WORD 

iCLEAR FATAL ERROR FLAG 

iCLEAR INTERRUPT RECEIVED FLAG 

■WAIT FOR READY, NON- AMBIGUOUS 

1ENA8LE INTERRUPTS 

I SET THE PACKET ADORESS 

lUAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOO RETURN) 

iSAVE CONTENTS OF 1 SSR 

iDEVICE FATAL SSR FAILED TO SET 



CIB5EG 



CIERDF 

307 

SFIERR 

SFIMSG 







TRAP 


CIERDT 






.WORD 


308 






.WORD 


T3SSR 






.WORD 


PKTSSR 


JSR 


PC.FATCHK 


liNC AND CHECK FOR MORE THAN 25 


ERRORS 


CKLOOP 




iLOOP ON ERROR, IF FLAG SET 








TRAP 


CICLP1 


ESCAPE 


SUB 


jBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


CIESCAPE 






.WORD 


L1D047-, 


TST 


INTRECV 


lOID AN INTERRUPT OCCUW ? 




BNE 


2?t 


iBRANCH IF YES 




ERRHRD 


ERRN0.T3NINT .PKTSSR 


1 REPORT ERROR IF NO INTERRUPT 








TRAP 


CtERH*D 






.WOW 


309 






.WORO 


T3NINT 






.WORD 


PKTSSR 



MOV 


• dlINBAJSSUTSREJ.RS 


JSR 


PC.CHKTSSR 


MOV 


TSSR(R5),R1 


BIT 


♦OF I ,R1 


BFO 


251 


BIS 


♦0FL.R2 


CMP 


R2.R1 


BEO 


501 


ERRHRD 


ERRNQ.T3N6A. PKTSSR 



lEXPECTED CONTENTS OF TSSR 
IWAIT FOR READY, NON AMBIGUOUS 
iGET THE CONTENTS OF TSSR 
lIS OFF LINE BIT SF T ? 

ibranch if not off-line 

iSet Off-line in expected oata 

idoes expected match received 

jOKAt if match 

iNBA NOT SET TO REJECT 

TRAP 
»WQRQ 



Clf-RHRO 

510 



CZTKEA TK25 FRT ENO FUNC 01 
TEST 3; COMMAND REJECT 
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025452 


025630 






025454 


011520 




4601 


025456 








025456 


104406 




4602 


025460 


004737 


017060 


4603 


025464 


016501 


177776 


4604 


0254 70 


010402 




4605 


0254 72 


020102 




4606 


025474 


001404 




4610 


0254 76 








0254 76 


104456 






025500 


000467 






025502 


026071 






025504 


016170 




4611 








4612 








4613 


025506 


004737 


010354 


4614 


025512 


103404 




4618 


025514 








025514 


104456 






025516 


000470 






025520 


004643 






025522 


016204 




4619 


025524 
025524 








025524 


104405 




4620 


025526 


011300 




4621 


025530 


042700 


177740 


4622 


025534 


020027 


000004 


4623 


025540 


001002 




4624 


025542 


062703 


000O02 


4625 


025546 


020327 


003030 


4626 


025552 


103002 




4627 


025534 


000137 


025274 


462B 








4629 


025560 
025560 








025560 


104403 




4630 


025562 


005737 


002170 


4631 


025566 


001402 




4632 


025570 


004737 


017776 


4633 


025574 


0O4737 


017200 


4634 


025600 


103002 




4635 


025602 


000137 


024 734 


4636 


025606 








025606 


104432 






025610 


000352 




4637 








4636 








4639 








4640 








4641 








4643 


025612 






4645 


025620 






4646 


025620 


oooooo 




464 7 


025622 


052525 




4646 


025624 


125252 





30*s 



CKLOOP 

JSR 
HOV 
MOV 
CMP 
BEQ 
ERRHRD 



PC.CHKTSSR 

TSBA(R5),R1 

R4.R2 

R1.R2 

351 

ERRN0,T3TSBA.EXPREC 



35$: 



40$: 



JSR PC.CKRAM 

BCS 40$ 

ERRHRD ERRNO , PK TRAM , RAMERR 



ENOSEG 



451} 



501} 



MOV 


(R3),R0 


BIC 


♦177740, RO 


CMP 


R0.*4 


BNE 


451 


AOO 


♦2.R3 


CMP 


R3.0T8LEND 


BHIS 


50$ 


JMP 


5$ 



EN0SU6 





TST 


FATFLG 




BEQ 


60$ 




JSR 


PC.CKDROP 


60$: 


JSR 


PC.TSTLOOP 




BCC 


62$ 




JMP 


T SLOOP 


62$: 


EXIT 


TST 



I LOCAL STORAGE FOR THIS TEST 
I ■ 



T3PACKET: 



.BLKfl 10- <. ~TUV2A&7> 



.WORD 
.WORD 052525 
♦WORD 125252 



SEQ 132 



.WORD 
.WORD 

l LOOP ON ERROR ? 

TRAP 

I WAIT FOR READY, NON-AMBIGUOUS 

iGET TSBA REGISTER CONTENTS 

jSTART OF THE PACKET 

I COMPARE EXPECTED TO RECEIVED 

I ERROR IF NOT EQUAL 

i PRINT THE ERROR 6 EXPD/RECV 



T3NBA 
PKTSSR 

C»CLP1 





TRAP 


CIERHRD 




.WORD 


311 




.WORD 


T3TSBA 




.WORD 


EXPREC 


iSEE IF 


DATA IN RAM IS CORRECT 




I BRANCH 


IF PACKET IN RAM IS CORRECT 


iREPORT 


THE RAM ERROR(S) 






TRAP 


CIERHRD 




.WORD 


312 




.WORD 


PKTRAM 




.WORD 


RAMERR 



!<<<<<<<<<<<<< 



<<<<<<<<<<<<< 



END SEGMENT 
10000$: 

TRAP CIESFG 

l NEXT PACKET COMMANO WORD 
iGET BITS 0-4 

iDON'T TEST WRITE CHARACTERISTICS 
iBRANCH IF NOT WRITE CHARACTERISTICS 
i BY PASS WRITE CHARACTERISES 
jHAVE WE COMPLETED DATA TABLE ? 
»BRANCH IF ALL TESTED 
l TEST WITH NEXT DATA 

i\\\W\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10047j 

TRAP CIESLH 

,ANY FATAL ERRORS ? 

iBRANCH IF NOT 

I TRY TO DROP THE UNIT 

l SHOULD WE DO ITERATIONS ? 

iBRANCH IF NOT 

lLOOP UNTIL COUNT EXPIRED 

jALL DONE THIS TEST 

TRAP C$ExIT 

.WORD L 10045- % 



> COMMANO PACKET fOR TEST 

iWILL CONTAIN VARIABLE COMMANDS 



CZTKEA TK25 FRT ENO FUNC 01 
TEST 3: COMMANO REJECT 
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SEQ 133 



4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 



025626 052525 



025630 
025655 

025733 
026011 
026071 
026143 



103 
10 J 
125 

105 
111 
103 



026162 
026162 
026162 104401 



157 
157 
156 
170 
156 
157 



155 

156 
145 
160 
143 
155 



.WORD 052525 



I ♦ 

lLOCAL TEXT MESSAGES FOR TEST 
t - 



T3N6A 

T3SSR 

T3IN1 

T3NINT; 

T3TSBA: 

TST31D: 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

. ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



'Command Not Rejected' 

'Content* of TSSR Incorrect After Writ* Packet' 
'Unexpected Interrupt Received On Writ* Packet' 
'Expecttd Interrupt Not Received On Writ* Packet' 
'Incorrect TSBA Address After Packet Write' 
'Command Reject* 



L 10045: 



TRAP 



CJETST 



CZTKEA TK25 FRT END FUNC tfl 
TEST 3: COMMAND REJECT 



4665 
4666 
4667 
46o8 
4669 
4670 
4671 
4672 
4673 
A674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
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SEQ 134 



4694 
4695 

46% 
4701 
4702 
4703 
4 704 
4705 



4706 
4707 
4 706 



4 709 
4710 
4711 
4712 
4713 

4714 
4715 
4716 
4 720 
4 721 



026164 
026164 
026164 
026170 
026176 
026202 
026206 
026212 
026220 
026220 
026220 
026220 
026222 

026226 
026226 
026232 
026234 
026240 
026244 
026252 
026252 
026252 

026254 
026260 
026262 
026264 
026264 



005037 
012737 
005037 
012700 
004737 
012737 



104402 
004737 



012700 
104441 
012703 
012704 
012764 



104404 

004 737 
103405 
010001 

104455 



.SBTTL TEST 4; WRITE CHARACTERISTICS 



THIS TEST VERIFIES BASIC OPERATION Of THE WRITE CHARACTERISTICS 
COMMAND, IT VERIFIES THAT THE COMMAND BLOCK AND CHARACTERISTICS 
DATA BLOCK ARE FETCHED PROPERLY FROM CPU MEMORY. THE NEED 8UFFER 
ADDRESS (NBA) BIT IN fSSR IS HANDLED PROPERLY, AND THAT A PROPER 
MESSAGE PACKET IS STORED, WHERE APPROPRIATE. THIS TEST DOES NOT 
CHECK THAT THE VARIOUS FUNCTIONS ENABLED BY CHARACTERISTIC MODE 
DATA BITS OPERATE PROPERLY i THE FUNCTIONING OF THESE BITS IS 
VERIFIED IN SUBSEQUENT TESTS. ALL COMMANOS EXECUTED IN THIS 
TEST HAVE THE INTERRUPT ENABLE CIE) BIT CLEARED TO ZERO, SO NO 
INTERRUPTS SHOU.D BE GENERATED, HOWEVER, THE PROGRAM RUNS AT 
PROCESSOR PRIORITY 0, WITH THE INTERRUPT SERVICE ROUTINE SET UP 
TO FLAG UNEXPECTED INTERRUPTS. IF AN INTERRUPT OCCURS, A 
PROBLEM EXISTS IN EITHER THE LSI-11 BUS INTERFACE SECTION OR IN 
THB ROM OR PIPELINE. 

THIS TEST CHECKS VARIOUS MICROPROGRAM SEQUENCES. COMMAND 
DECOOING. DMA LOGIC, AND BASIC PACKET PROTOCOL HANDLING. THIS 
IS THE FIRST TEST IN WHICH DATO DMA CYCLES (FOR STORING THE 
MESSAGE PACKET) ARE PERFORMED. ANY ERRORS IN THE BOOY OF THE 
TEST (I.E. ERRORS OTHER THAN INITIALIZATION ERRORS RELATED TO 
THE TRANSPORT BUS) DEFINITELY INDICATE A BAD CONTROLLER MODULE. 



002170 
005672 
003100 
030117 
017232 
000002 



030146 



OOOOOO 

002732 
027250 
000010 



016470 



002146 



BGNTST 

CLR 
MOV 
CLR 
MOV 
JSR 
002164 MOV 

T4L00P: 

BGNSUB 



FATFLG 

*EPRT1,EPRTSW 

KTFLG 

*TST4ID,R0 

PC.TSTSETUP 

O2..L00PCNT 



JSR PC.T4REST 
SETPRI OPRIOO 



000006 



5i: 



MOV 
MOV 

MOV 

BGNSEG 



OTSTBLKflO. ,R3 
«T4PACKE T ,R4 
06. ,PKBCNT(R4) 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SF 



T4: : 

j CLEAR FATAL ERROR FLAG 
I SET UP ERROR MESSAGE SWITCH 
jHOLD OFF KT11 

jASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
iPERFORM 2 ITERATIONS 

%//////////// BEGIN SUBTEST //////////// 

T4.1: 

TRAP C$BSUB 
iSET PACKET TO START-UP VALUES 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRI00,R0 
TRAP CJSPRI 

jSTART OF TEST OATA 

I GET THE ADDRESS Of COMMAND PACKET 

j START WITH MINIMUM ALLOWABLE VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>**>>» 

TRAP CSBSEG 

»D0 SOFT INIT OF CONTROLLER 
jBR IF SOFT INIT - OK 
jSAVE CONTENTS Of TSSR 
IMSG i DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 



CZTKEA TK25 FRT ENO FUNC *1 
TEST 4s WRITE CHARACTERISTICS 
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SEQ 135 



4 722 
4723 
4724 
4725 
4 726 
4727 
4731 



4732 
4733 

4734 



4 735 
4 736 
4740 



4741 
47/#2 
4743 
4744 
4745 
4746 
4747 
4751 



4752 

4753 
4754 
4755 
4 756 
4757 
4761 



4762 
4763 
4 764 
4765 
4769 



026266 
026270 
026272 
026274 
026300 
026304 
026310 
026314 
026316 
026320 
026320 
026322 
026324 
026326 
026330 
026334 
026334 
026336 
026356 
026340 
026342 
026346 
026350 
026350 
026352 
026354 
026356 
026360 
026364 
026370 
026374 
026376 
026402 
026404 
026406 
026406 
026410 
026412 
026414 
026416 
026416 
026420 
026424 
026430 
026434 
026436 
026440 
026440 
026442 
026444 
026446 



026450 
026454 
026456 
026456 



000621 
003550 
011506 
005037 
005037 
010465 
004737 
103407 
010001 

104455 
000622 
027656 
011520 
004737 

104406 

104410 
000126 
005737 
001404 

104456 
000623 
027745 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
0OO624 
027406 
011520 

104406 
004737 
016501 
012702 
020102 
001404 

104456 
000625 

030034 
016170 



004737 
103404 

104456 



002170 
002172 
177776 
017060 



10$; 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


151 


MOV 


R0.R1 


ERRDF 


ERRN0.T4SSR.PKTSSR 



017724 



15$: 



002172 



000000 
000200 
000100 

000100 



22$: 



25$: 



30$: 



017060 
177776 
027250 



010354 



35$: 



.WORD 
.WORD 
.WORD 

j CLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

I SET THE PACKET ADDRESS 

»WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS Of TSSR 

{DEVICE FATAL SSR FAILED TO SET 



401 

SFIERR 

SFIMSG 









TRAP 


C$ERDF 








.WORD 


402 








.WORD 


T4SSR 








.WORD 


PKTSSR 


JSR 


PC.FATCHK 




lINC ANO CHECK FOR MORE THAN 25 


ERRORS 


CKLOOP 






jLOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


ESCAPE 


SEG 




jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


C$ESCAPE 
10000$-. 


TST 


INTRECV 




sDID AN INTERRUPT OCCUR ? 




BEQ 


22$ 




j BRANCH IF NOT 




ERRHRD 


ERRN0,T4INT,i 


=>KTSSR 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
403 
T4INT 
PKTSSR 


MOV 


TSSRCR5),R1 




{GET THE CONTENTS OF TSSR 




MOV 


*SSR,R2 




j EXPECTED CONTENTS OF TSSR 




BIT 


<K)FL,R1 




|IS OFF-LINE BIT SET ? 




BEQ 


25$ 




i BRANCH IF NOT OFF-LINE 




BIS 


♦0FL.R2 




{SET OFF-LINE IN EXPECTED DATA 




CMP 


R2,R1 




>D0€S EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 




tOKAY IF MATCH 




ERRHRD 


ERRN0.T4NBA.I 


3 KTSSR 


jN8A NOT ZERO 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 

404 

T4NBA 

PKTSSR 


CKLOOP 






jLOOP ON ERROR ? 

TRAP 


C$CLP1 


JSR 


PCCHKTSSR 




iWAIT FOR READY, NON-AMBIGUOUS 




MOV 


TSBA(R5),R1 




{GET TSBA REGISTER CONTENTS 




MOV 


0T4PACKET.R2 




{START OF THE BUFFER 




CMP 


R1.R2 




{COMPARE EXPECTED TO RECEIVED 




BEQ 


35$ 




{ERROR IF NOT EQUAL 




ERRHRD 


ERRN0.T4TSBA 


.EXPREC 


jPRINT THE ERROR 6 EXPD/RECV 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRC 
405 
T4TSBA 
EXPREC 


JSR 


PC.CKRAM 




(SEE IF DATA IN RAM IS CORRECT 




BCS 


40$ 




jBRANCH IF PACKET IN RAM IS CORRECT 


ERRHRD 


ERRNO.PKTRAM 


t RAMERR 


{REPORT THE RAM ERROR(S) 





TRAP C$ERHRD 



CZTKEA TK25 FRT END FUNC *1 
TEST 4: WRITE CHARACTERISTICS 
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SEQ 136 





026460 


000626 






026462 


004643 






026464 


016204 




4770 








4771 


026466 
026466 








026466 


104405 




4772 








4773 


026470 


012364 


000006 


4774 


026474 


020327 


003030 


4775 


026500 


103002 




4776 


026502 


000137 


026252 


4777 








4778 


026506 
026506 








026506 


104403 




4779 








4780 


026510 


005737 


002170 


4781 


026514 


001402 




4782 


026516 


004737 


017776 


4783 


026522 







40$ { 



ENDSEG 



MOV 


(R3)f ,PKBCNTCR4) 


CMP 


R3,*TBLEND 


BHIS 


55$ 


JMP 


5$ 



55$ 



ENDSUB 



60$ 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PC ♦CKDROP 



.WORD 406 
.WORD PKTRAN 
.WORD RAMERR 

x <<<<<<<<<<<<< END SEGMENT <<<<<< < <<<<<< 

10000 i: 

TRAP C$ESEG 

»StT THE TEST WORD 
l HAS ALL DATA BEEN TESTED ? 
jBR4NCH IF ALL DATA DONE 
iFSANCH TILL BACK TO ZERO 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10051: 

TRAP C$ESUB 

j ANY FATAL ERRORS ? 

{BRANCH IF NOT 

;TRY TO DROP THE UNIT 



CZTKEA TK25 KRT ENO FUNC #1 
TEST 4: WRITE CHARACTERISTICS 
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SEQ 137 



4785 








4786 








4787 








4788 








4789 








4 790 








4791 








4 792 








4793 








4794 


026522 
026522 








026522 


104402 




4795 








4796 


026524 








026524 


012700 


000000 




026530 


104441 




4797 


026532 


012703 


027314 


4798 


026536 


012704 


027250 


4799 


026542 


004737 


030146 


4800 








4801 


026546 








026546 


104404 




4802 








4803 


026550 


004737 


016470 


4804 


026554 


103405 




4808 


026556 


010001 




4809 


026560 








026560 


104455 






026562 


000627 






026564 


003550 






026566 


011506 




4810 


026570 


005037 


002172 


4811 


026574 


010400 




4812 


026576 


061300 




4813 


026600 


056310 


0O0002 


4814 


026604 


010465 


177776 


4815 


026610 


004737 


016744 


4816 


026614 


103405 




4817 


026616 


010001 




4021 


026620 








026620 


104455 






026622 


000630 






026624 


027656 






026626 


011520 




4822 


026630 








026630 


104406 




4823 


026632 








026632 


104410 






026634 


000116 




4824 


026636 


005737 


002172 


4825 


026642 


001404 




4829 


026644 








026644 


104456 






026646 


000631 






026650 


027745 






026652 


011020 




4830 


026654 


016501 


000000 



TEST 4, SUBTEST 2 

CHECK THAT UNUSED BITS BEING SET CAUSES 
WRITE CHARACTERISTICS COMMAND TO BE REJECTED 



QGNSUB 



SETPRI OPRIOO 



5$ 



MDV 
MOV 
JSR 

Bf-'NSEG 



10$: 



15$: 



CKLOOP 
ESCAPE 



TST 
BEU 
ERRHRD 



0T42DATA.R3 

*T4PACKET,R4 

PC.T4REST 



JSrt 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



CLH 


INTRECV 


MOV 


R4.R0 


ADO 


CR3),R0 


BIS 


2(R3) # (R0) 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T4SSR, PKTSSR 



22$: 



MOV 



SEG 



INTRECV 

22$ 

ERRNQ.T4INT, PKTSSR 



TSSR(R5),R1 



;//////////// BEGIN SUBTEST //////////// 

T4.2: 

TRAP C$BSUB 

lLOWER PRIORITY TO Al ^'J'A INTERRUPTS 

MOV 0PRIOO.RO 
TRAP C$SPRI 
j START OF TEST DATA FOR SUBTEST 
iGET THE ADDRESS OF COMMAND PACKET 
;RESTORE PACKET TO STARTING VALUES 

; >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

(DO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

; DEVICE FATAL ERROR DURING INIT 

TRAP C«ERDF 
.WORD 407 
.WORD SFIERrl 
.WORD SFIMSG 

j CLEAR INTERRUPT RECEIVED FLAG 

j START OF THE COMMAND PACKET 

{OFFSET TO THE DATA WORD TO TEST 

{SET THE DATA BITS TO BE TESTED 

l SET THE PACKET ADDRESS 

jUAIT FOR SSR TO SET 

jBR IF CARRY SET (GOOO RETURN) 

;SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 408 
.WORD T4SSR 
.WORD PKTSSR 

{LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

j BY -PASS CHECKS IF FATAL ERROR 

TRAP CIESCAPE 
.WORD 10000$-. 

iDID AN INTERRUPT OCCUR ? 

{BRANCH IF NOT 

TRAP C$ERHRD 

.WORD 409 

.WORD T4INT 

.WORD PKTSSR 
{GET THE CONTENTS OF TSSR 



CZTKEA TK25 FRT END FUNC *1 
TEST 4: WRITE CHARACTERISTICS 
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4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4844 



4845 

4846 

4847 
4851 



4852 
4853 



4854 
4855 
4856 

4857 
4858 
4859 
4860 



026660 
026664 
026670 
026672 
026676 
026700 
026702 
026704 
026714 
026720 
026722 
026722 
026724 
026726 
026730 
026732 
026732 
026734 
026740 
026742 
026742 
026744 
026746 
026750 
026752 
026752 
026752 
026752 

026754 
026760 
026764 
026766 

026772 
026772 
026772 



012702 
032701 
001402 
052702 
020201 
001414 
010100 

020027 
001404 

104456 
000632 
027461 
011520 

104406 
032701 
001004 

104456 
000633 
027330 
011520 



104405 

062703 
020327 
103002 
000137 



104403 



102206 
000100 

000100 



002000 



25$: 



30$: 



002000 



MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
MOV 
XOR 
CMP 
BEQ 
ERRHRD 



CKLOOP 

BIT 
BNE 
ERRHRD 



35$; 



ENDSEG 



000004 
027330 

026536 



57$; 



ENDSUB 



*SC!SSRJTSREJ!NBA,R2 

♦0FL.R1 

251 

*0Fl,R2 

R2.R1 

301 

Rl.RO 

R2,R0 

RO,*NBA 

30$ 

ERRN0.T42RE J, PKTSSR 



*NBA,R1 

35$ 

ERRN0.T42N6A, PKTSSR 



ADD 


04. R3 


CMP 


R3.0T42D0NE 


BHIS 


57$ 


JMP 


5$ 



SEQ 138 



l EXPECTED CONTENTS OF TSSR 

jIS OFF-LINE BIT SET ? 

{BRANCH IF NOT OFF-LINE 

iSET OFF-LINE IN EXPECTED DATA 

j DOES EXPECTED MATCH RECEIVED ' 

j OKAY IF MATCH 

,DATA FROM TSSR 

{FIND BITS IN ERROR 

jIS NBA ONLY BIT IN ERROR ? 

j DON'T PRINT ERROR IF NBA ONLY 

, COMMAND NOT REJECTED 



{LOOP ON ERROR ? 

j IS NBA BIT SET ? 
;OKAY IF NBA SET 
jN8A NOT SET 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



TRAP 
.WORD 
.WORD 
.WORD 



BAD BIT 

C$ERHRD 
410 

T42REJ 
PKTSSR 

C$CLP1 



C$ERHRD 
411 

T42N6A 
PKTSSR 



!<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

{POINT TO NEXT DATA PAIR 
{COMPARE TO END OF TEST DATA 
j BRANCH IF ALL DATA TESTED 
{BRANCH TILL BACK TO ZERO 

:\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10052: 

TRAP C$ESUB 



CZTKEA TK25 FRf END FUNC *1 
TEST 4; WRITE CHARACTERISTICS 



4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
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SEQ 139 



4873 
4874 



4875 
4876 
4877 
4878 
4879 
4880 
4881 
4885 
4886 



4887 
4888 
4889 
4890 
4891 
4892 
4896 



4897 
4898 



4899 
4900 
4904 



4905 
4906 
4907 
4908 



026774 
026774 
026774 

026776 
026776 
027002 
027004 
027010 
027014 



027020 
027024 
027026 
027030 
027030 
027032 
027034 
027036 
027040 
027044 
027052 
027056 
027062 
027064 
027066 
027066 
027070 
027072 
027074 
027076 
027076 
027100 
027100 
027102 
027104 
027U0 
027112 
027112 
027114 
027116 
027120 
027122 
027126 
027132 
027136 



104402 



012700 
104441 
012703 
012704 
004737 



004737 
103405 
010001 

104455 
000634 
003550 
011506 
005037 
052737 
010465 
004737 
103405 
010001 

104455 
000635 
027656 

011520 

104406 

104410 
000116 

0057; / 

001404 

104456 
000636 
027745 
011520 
016501 
012702 
032701 
001402 



TEST 4, SUBTEST 3 

SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED, 



000000 

027314 
027250 
030146 



016470 



5*: 



BGNSUB 



SETPRI <>PRIOO 



MOV GT42DATA.R3 
MOV 4T4PACKET.R4 
JSR PC.T4REST 



JSR PC.S0F1JIT 

BCS 10$ 

MOV R0 # R1 

ERRDF ERRNO, SFIERR , SFIMSG 



002172 
000001 

177776 
016744 



027260 



10$ 



CLR 


INTRECV 


BIS 


4U.T4DATA 


MOV 


R4,TSDe(R5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T4SSR, PKTSSR 



15$ 



002172 



000000 
102206 
000100 



22$ 5 



://////////// BEGIN SUBTEST //////////// 

T4.3: 

TRAP C$BSUB 

j LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV $PRIOO,R0 

TRAP C$SPRI 

{START OF TEST DATA FOR SUBTEST 
j GET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 



{DC SOFT INIT OF CONTROLLER 

;BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP CiERDF 
.WORD 412 
.WORD SFIERR 
.WORD SFIMSG 

{CLEAR INTERRUPT RECEIVED FLAG 

{MAKE ADDRESS ODD 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

{BR IF CARRY SET CGOOO RETURN) 

{SAVE CON r ENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 







TRAP 


C$ERDF 






.WORD 


413 






.WORD 


T4SSR 






.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR. IF FLAG SET 








TRAP 


CICLP1 


ESCAPE 


SUB 


{BY-PASS SUBTEST IF FATAL ERROR 








TRAP 


CIESCAPE 






.WOP") 


L10053-. 


TST 


INTRECV 


{DID AN INTERRUPT OCCUR ? 




BEQ 


22$ 


{BRANCH IF NOT 




ERRHRD 


ERRN0,T4INT,PKTSSR 










TRAP 


C$ERHRD 






.WORD 


414 






.WORD 


T4INT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


{GET THE CONTENTS OF TSSR 




MOV 


0SC!SSRJTSREJ!NBA I R2 


{EXPECTED CONTENTS OF TSSR 




BIT 


40FL.R1 


{IS OFF-LINE BIT SET ? 




BEQ 


25$ 


{BRANCH IF NOT OFF-LINE 





KU 



CZTKEA TK25 FRT END FUNC *1 
TEST 4; WRITE CHARACTERISTICS 



4909 
4910 
4911 
4912 
4913 
4914 
4915 
4919 



4920 

4921 
4922 
4926 



4927 
4928 



4929 
4930 
4931 
4932 
4933 
4934 



4935 
4936 
4937 
4938 
4939 
4941 
4943 
4944 
4945 
4946 
494 7 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 



027140 
027144 
027146 
027150 
027152 
027162 
027166 
027170 
027170 
027172 
027174 
027176 
027200 
027200 
027202 
027206 
027210 
027210 
027212 
027214 
027216 

027220 
027220 
027220 

027222 
027226 
027230 
027234 
027234 
027234 
027236 



027240 
027250 
027250 
027252 
027254 
027256 

027260 
027260 
027262 
027264 
027266 
027270 

027270 
027274 



052702 
020201 
001414 
010100 

020027 
001404 

104456 
000637 
027560 
011520 

104406 
032701 
001004 

104456 
000640 
027330 
011520 



104403 

005737 
001402 
004737 



104432 
000756 



100004 
02/260 
000000 
000010 



027274 
000000 
000016 
000000 



000100 



002000 
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BIS 




O0FL.R2 


25$: 


CMP 




R2.R1 




BEQ 




30$ 




MOV 




Rl.RO 




XOR 




R2.R0 




CMP 




R0.ON8A 




BEQ 




30* 




ERRHRD 


ERRN0»T44RE J, PKTSSR 



30$; 



002000 



CKLOOP 

BIT *NBA,R1 

BNE 35$ 

ERRHRD ERRNO , T42NBA , PKTSSR 



35$ 



ENDSUB 



002170 
017776 



60$ 



i * 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PC.CKDROP 



EXIT 



TST 



{LOCAL STORAGE FOR THIS TEST 



.BLKB 10-< . -TUV2AS7* 



T4PACKET: 



T4DATA: 



T4SP: 



.WORD 100004 

.WORD T4DATA 

. WORD 

.WORD 8. 



.WORD T4BFR 

, WORD 

.WORD 14. 

.WORD 



000000 000000 



.WORD 0,0 
T4BFR: .BLKW 8. 



SEQ 140 



j SET OFF-LINE IN EXPECTED DATA 

{DOES EXPECTED MATCH RECEIVl-.D * 

j UK AY IF MATCH 

{DATA FROM TSSR 

I FIND BITS IN ERROR 

j IS NBA ONLY BIT IN ERROR ? 

»DON'T PRINT ERROR IF NBA ONLY 

j COMMAND NOT REJECTED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP ON ERROR ? 



;IS NBA BIT SET ? 
iOKAY IF NBA SET 
{NBA NOT SET 



TRAP 



TRAP 
.WORD 
.WORD 
.WORD 



BAD BIT 

C$ERHRD 
415 
T44REJ 
PKTSSR 

C$CLP1 



CIERMRD 

416 

T42NBA 

PKTSSR 



j\\\\\\\\\\\\\ END SUBTEST WWWWWWS 

L10O53: 



TRAP 



C$ESU6 



{ANY FATAL ERRORS ? 

{BRANCH IF NOT 

;TRY TO DROP THE UNIT 

{ALL DONE THIS TEST 



TRAP 
.WORD 



CSEXIT 

L 10050 -, 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO. WITH AQ< 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{SPACE 
{MESSAGE BUFFER 



1 *■ 
» 



CZTKEA TK25 FRT END FUNC *1 
TEST 4: WRITE CHARACTERISTICS 



4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4976 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4966 
4987 
4988 
4989 
4990 



027314 
027314 
027320 
027324 



027330 
027406 
027461 
027560 
027656 
027745 
030034 
030117 



L 1 1 
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SEQ 141 



OOOOOO 
OOC002 
000004 
027330 



037140 
000OO1 
1C0100 



116 
127 
127 
127 
103 
125 
111 
127 



102 
122 
122 
122 
157 
156 
156 
162 



101 
111 
111 
111 
156 
145 
143 
151 



{DATA HAS FORMAT: 

j 

1ST WORD 
2ND WORD 



OFF SET TO TEST WORD IN PACKET 
BITS TO SET FOR TEST 



T42DATA: 



T42D0NE: 



.WORD 0,BIT5!BIT6!BIT9!BIT10!BIT11!BIT12!BIT13 
.WORD 2.BIT0 
.WORD 4>BIT6!BIT15 



LOCAL TEXT MESSAGES FOR TEST 



T42N8A: 

T4NBA: 

T42REJ: 

T44REJ: 

T4SSR: 

T4INT: 

T4TSBA; 

TST4ID: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



•NOA Not Set On Rejected WRITE CHARACTERISTICS' 
'WRITE CHARACTERISTICS Command Not Accepted' 

'WRITE CHARACTERISTICS Not Rejected With Non-Zero Unused Fields 
•WRITE CHARACTERISTICS Not Reiected With Invalid Block Address' 
•Contents of TSSR Incorrect After WRITE CHARACTERISTICS' 
'Unexpected Interrupt Received On WRITE CHARACTERISTICS' 
'Incorrect TSBA Address After WRITE CHARACTERISTICS' 
'Write Characteristics' 



CZTKEA TK25 FRT END FUNC n 
TEST 4; WRITE CHARACTERISTICS 



4992 
4993 
4994 
4995 
4996 
4997 
4998 

4999 030146 

5000 030146 

5001 030152 

5002 030156 

5003 030162 

5004 030166 

5005 030170 

5006 030174 

5007 030200 

5008 030202 

5009 030206 

5010 030210 

5011 030212 

5012 030214 
030214 
030214 
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SEQ 142 



5013 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
000207 



104401 



j ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



T4REST: 



027250 
100004 
027260 

000010 
027274 

000020 



SAVREG 




MOV 


M4PACKET.R1 


MOV 


0100004, CR1)» 


MOV 


*T4DATA,(R1)* 


CLR 


CRD* 


MOV 


*8,,(R1)» 


MOV 


*T4BFR,CR1H 


CLR 


CRD* 


MOV 


016. .CRD* 


CLR 


CRD* 


CLR 


CRD 


RT5 


PC 



ENDTST 



iSAVE THE REGISTERS 

j START Of THE PACKET 

{WRITE CHARACTERISTICS WITH 

{ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

jSIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



ACK 



{RETURN 



L10050{ 



TRAP 



C$ETST 



CZTKEA TK25 FRT END rUNC 01 
TEST 5: VOLUME CHECK 



5015 

5016 
5017 

5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
504 7 
5048 
5049 



5050 
5051 
5052 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5u65 
5066 
50/0 
5071 



50/2 
5073 



030216 
030216 
0302X6 
030222 
030230 
030234 
030240 
030244 
030252 

030252 
030256 
030262 
030270 
030274 
030276 
030300 
030300 
030302 
030304 
060306 
030310 
030314 



005037 
012737 
005037 
012700 
004737 
012737 



0127O4 
012702 
012762 
004737 
103405 
010001 

104455 
000765 
003550 
011506 
042/14 
010465 



Nil 
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.SBTTL TEST 5: VOLUME CHECK 



SEU 143 



THIS TEST VERIFIES THAT THE VOLUME CHECK CVCK) BIT, A FLAG HELD 
WITHIN THE CONTROLLER AND APPEARING IN XSTO, IS SET BY INITIALIZE AND 
CLEARED BY EXECUTING A WRITE CHARACTERISTICS COMMAND WITH THE 
CVC BIT SET. IT IS ALSO VERIFIED THAT A WRITE CHARACTERISTICS 
COMMAND WITH THE CVC BIT CLEAR DOES NOT AFFECT THE STATE OF THE 
VOLUME CHECK BIT. THE ACTUAL FUNCTION OF VOLUMt CHECK, THAT OF 
PREVENTING OR ALLOWING A TAPE MOTION COMMAND DEPENDING UPON 
WHETHER VOLUME CHECK IS SE1 OR CLEAR, IS NOT CHECKED BY THIS 
:'STj THIS FUNCTIONALITY IS CHECKED IN THE INDIVIDUAL TESTS OF 
TAPE MOTION COMMANDS. 

THE TEST PROCEEDS AS FOLLOWS: 

1. THE CONTROLLER IS INITIALIZED BY WRITING INTO THE TSSR. 

2. A WRITE CHARACTERISTICS COMMAND IS ISSUED (WITH CVC*0) 
ANO XSTO IN THE RETURNED MESSAGE BUFFER IS EXAMINED} 
THE VCK BIT SHOULD BE CLEAR CO). 

3. THE PREVIOUS STEP IS REPEATED TO VERIFY THAT VCK DOES 
NOT CHANGE (REMAINS AT 0). 

4. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC-1 
AND THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD BE CLEAR CO). 

5. A WRITE CHARACTERISTICS COMMAND IS ISSUED WITH CVC-0 
ANO THE VCK BIT IN XSTO IN THE MESSAGE BUFFER IS 
EXAMINED; THE VCK BIT SHOULD REMAIN CLEAR CO). 



BGNTST 



0021/0 
005672 
003100 
031407 
017232 
000002 



030720 
030742 
052525 
016470 



002146 



002164 



000006 



CLR 


FAH-LC 


MOV 


•fcPRU.EPRTSW 


CLR 


KTFLG {HO 


MOV 


OT5U5ID.RO 


w'SR 


PC.TSTSETUP 


MOV 


*2. ,LOOPCNT 


T5L00P: 




MOV 


0T5PACKET.R4 


MOV 


0T5BFR.R2 


MOV 


0052525.XSTOCR2) 


5$; JSR 


PCSOFINIT 


BCS 


lot 


MOV 


R0.R1 


f '\bf 


ERRN0,SFIERR,5FIMSCi 



040000 
177776 



104; BIC *6IU4.(R4; 

MOV R4.TSDBCR5) 



T5:: 

; CLEAR FATAL ERROR FLAG 
; SET UP ERROR MESSAGE SWITCH 
{HOLD OFF KT11 

; ASCII MESSAGE TO IDENTIFY TEST 
{DO INITIAL TEST SETUP 
{PERFORM 2 ITERATIONS 



{PACKET FOR WRITE CHARACTERISTICS 

{ADDRESS OF THE MESSAGE BUFFER 

{SET XSTATO TO KNOWN VALUF. 

;D0 SOFT 1NIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C it RDF 
.WORD 501 
.WORD SFIERR 
.'JORD SFTMSG 

; CLEAR THE CVC BIT 

I SET THE PACKET ADDRESS FOR WRITE CHAR 



C7TKEA TK25 FRT END FUNC 01 
TEST 5; VOLUME CHECK 



III? 
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5074 
5075 
5076 

soao 



5081 
5082 



5083 
5084 
5065 
5086 
5090 



5091 
5092 
5096 
5097 



5098 

5099 
5100 

5101 
510? 
5106 



5107 
5108 



5109 
5110 
5114 
5115 



5116 
5U7 



050520 
050524 
050526 
050550 
050550 
050552 
J50554 
050556 
050540 
050540 
050542 
050542 
050544 
050546 
050552 
050556 
050560 
050564 
050564 
050566 
050570 
050572 
050574 
050402 
050404 
050410 
050410 
050412 
050414 
050416 
050420 
050420 
050422 
050426 
050452 
050434 
0304 56 
050436 
030440 
030442 
050444 
050446 
050446 
050450 
050450 
050452 
050454 
050460 
050462 
050466 
050466 
0304 70 
030472 
0304 74 
0304 76 
0304 76 
030500 



004757 
105405 
010001 

104455 
000766 
051221 
011520 

104406 

104410 
001060 
016205 
020527 
001006 
016501 

104456 
000767 
051510 
011520 
052762 
001006 
016501 

104456 
000770 
051055 

0115/4 

104406 
010465 
004737 
105405 
01OOO1 

104455 
000771 
031221 
011520 

104406 

104410 
000752 
026205 
001406 
016501 

104456 
000772 
031131 

011574 

1044CK> 
032702 



017060 



jsr 


PJ.CHKTSSR 


BCS 


:si 


MOV 


R0.R1 


ERRDF 


ERRN0.T5SSR. PKTSSR 



15lt 



000006 
052525 

000000 



000020 
000000 



000006 r.OI : 



25lj 



CKLOOP 
ESCAPE TST 



MOV XSTO(R2).R3 

CMP R5, #052525 

BNE 201 

MOV T5SRCR5) f Rl 

ERRHRD ERRN0.T5NMSG, PKTSSR 



BIT ♦XS0VCK I XST0(R2) 

BNE 25$ 

MOV TSSR(R5),R1 

ERRHRD ERRNO , T5VCK2 , PK TMES 



CKLOOP 



177776 
017060 



MOV 


R4,TS06(R5) 


JSR 


PC,C*<TSSR 


BCS 


2b% 


MOV 


RO.Rl 


ERRDF 


ERRN0.T5SSR, PKTSSR 



251} 



000006 

000000 



2 ft: 
000050 OOOOOfc 30ft 



CKLOOP 
ESCAPE TST 



CMP XST0CR2J.R3 

BEQ 271 

MOV TSSR(R5),R1 

ERRHRD ERRNO, T5NVCK f PKTMES 



CKLOOP 

Oil MSOVCKiXSTQlfU!} 



SEQ 144 



iWAJ.T FOR SSR TO SET 
I BR IF CARRY SET (GOOO 
I SAVE CONTENTS OF TSSR 
IDEVICE FATAL SSR FAILED 



RETURN) 




D TO SET 




TRAP 


CIERDF 


.WORD 


502 


.WORD 


T5SSR 


.WORD 


PKTSSR 


5ET 




TRAP 


CICLP1 


TRAP 


CIESCAPE 


.WORD 


L10054 . 



jLOOP ON ERROR, IF FLAG 
IEX1T IF FATAL ERROP 

iSTORE STATUS FOR A WHILE 
iCMfCK FOR XSTATO OVER WRITTEN (GOOD!) 
iBR. IF XSTATO HAS BEEN UPDATED 
iPICK UP TSSR FOR ERROR PRINTOUT 
I "NO MESSAGE PACKET RETURNED" 

TRAP 



lIS VOLUME CHECK CLEAR 
lOKAY IF VOLUME CHECK 
iCONTENTS OF TSSR FOR 
iVOLLUE CHECK NOT SET 



I LOOP ON ERROR ? 



.WORD 
.WORD 

.WORD 
IN XSTO > 
IS CLEARED 
ERROR REPORT 



CIERHRD 
503 
T5f#1SG 
PKTSSR 



TRAP 

.WORO 

.WORD 

.WORD 

TRAP 



CIERHRD 
504 

T5VCK2 
PKIMES 

CICLP1 



jSET THE PACKET ADORESS FOR WRITE CHAR 
iWAIT FOR SSR TO SET 
iBR IF CARRY SET (GOOO 
»SAVE CONTENTS OF TSSR 
(DEVICE FATAL SSR FAILED 



l I OOP ON ERROR. IF Fi AG 



,EXIT IF FATAL ERRO*. 



j THE XSTO SHOULD NU^ HAVE CHANGED 
lOKAY IF VOLUME CHECK IS SET 
iCONTENTS OF TSSR F0-* ERROR REPORT 



RETURN) 




TO SET 




TRAP 


CIERDF 


.WORD 


5C.i 


.WORO 


T5bSR 


.WORD 


PKTSSR 


, sei 




TRAP 


CICLP1 


TRAP 


ClESCA*>fc 


.WORD 


L 10054 -. 



I VOLUME CHECK NOT SE r 



ll OOP ON ERROR ? 

llii VULUME CHfcCK SET IN 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIFRHRO 
50* 

T5NVCK 
PKTMEs 

QIQLH 



«i¥ 













CL> 


F5l K ?Si^^cP cn 
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5118 030506 


001006 






BNE 


331 


5} 22 050510 


016501 


000000 




MOV 


TSSR(R5),R1 


5123 03051* 








ERRHRD 


ERRN0.T5VCK2.PKTMES 


030514 


104456 










030516 


000773 










0305,.'0 


031055 










030&>2 


011574 










5124 030524 






33$: 


CKLOOP 




030524 


104406 










5125 030526 


052714 


040000 




BIS 


#eiT14,(R4) 


5126 030532 


010465 


177776 




MOV 


R4.TSDBCR5) 


5127 030536 


004737 


017060 




J5R 


PC.CHKT5SR 


5128 030542 


103405 






BCS 


351 


5129 030544 


010001 






MOV 


R0.R1 


5133 030546 








ERRDF 


ERRN0,T5SSR,PKTSSR 


030546 


104455 










030550 


000774 










030552 


031221 










030554 


011520 










5134 030556 






351: 


CKLOOP 




030556 


104406 










5135 030560 








ESCAPE 


TST 


030560 


104410 










030562 


000642 










5136 030564 


032762 


000020 


000006 


BIT 


♦XS0VCK,XST0(R2) 


5137 030572 


001406 






BEQ 


401 


5141 030574 


01650), 


000000 




MOV 


TSSR(R5).R1 


5142 030600 








ERRHRO 


ERRNO^VCK .PKTMES 


030600 


104456 










030602 


000775 










030604 


030762 










030606 


011574 










5143 030610 






40$i 


CKLOOP 




030610 


104406 










5144 030612 


042714 


040000 




en* 


♦BIT14.(R4) 


5145 030616 


010465 


177776 




MOV * 


R4 t TSD6(R5) 


5146 030622 


004737 


017060 




JSR 


PC.CHKTSSR 


5147 030626 


103405 






BCS 


451 


5148 030630 


010001 






MOV 


R0.R1 


5152 030632 








ERRDF 


ERRN0.T5SSR, PKTSSR 


030632 


104455 










030634 


000776 










030636 


031221 










030640 


011520 










5153 030642 






45*: 


CKLOOP 




030642 


104406 










5154 030644 








ESCAPE 


TST 


05O644 


104410 










030646 


000556 










5155 030650 


032762 


000020 


0QG006 


BIT 


♦XS0VCK.XST0CR2) 


5156 030656 


001406 






BEQ 


50 5 


5160 030660 


016501 


0OO0QQ 




MOV 


TSSR(R5),R1 


5X61 030664 








ERRHRD 


ERRN0»T5NVCK»PKTMES 


030664 


104456 










030666 


0007 7 7 










030670 


031131 










030672 


011574 











SEQ 145 



I OKAY IF VOLUME CHECK 
iCONTENTS OF TSSR FOR 
i VOLUME CHECK NOT SET 



lLOOP ON ERROR ? 



IS SET 
ERRO* RC.PQRT 



TRAP 
.WORD 
.WORD 
.WORO 

TRAP 



Cf-ERHRD 
507 

T5VCK2 

pk t>^es 
CICl.Pl 



iSET the eve bit 

I SET THE PACKET ADDRESS FOR WRITE CHAR 
iWAIT FOR SSR TO SET 
I BR IF CARRY SET (GOOO 
I SAVE CONTENTS OF TSSR 
, DEVICE FATAL SSR FAILED 



lLOOP ON ERROR, IF FLAG 
lEXIT IF FATAL ERROR 

|IS VOLUME CHECK CLEAR IN XSTO ? 
i OKAY IF VOLUME CHECK IS CLEARED 
iCONTENTS OF TSSR FOR ERROR REPORT 
i VOLUME CHECK NOT CLEARED 

TRAP 



RETURN) 




D TO SET 




TRAP 


CIERDf 


.WORO 


508 


.WORD 


T5SSR 


.WORD 


PKTSSR 


- SET 




TRAP 


CICLP1 


TRAP 


C»ESCAPE 


.WORD 


L 10054 -, 



i LOOP ON ERROR ? 



.WORD 
.WORD 
.WORD 

TRAP 



CIERUK) 
509 

T5VCK 
PKTMES 

CtCLPl 



iCLEAR THE CVC BIT 

iSET THE PACKET ADORESS FOR WRITE CHAR 

iWAIT FOR SSR TO SET 

l BR IF CARRY SET (GOOO RETURN) 



iSAVE CONTENTS OF 
I DEVICE FATAL SSR 



lLOOP ON ERROR, IF FLAG 



lEXIT 



TSSR 

FAILED TO SE 
TRAP 
.WORD 
.WORD 
.WORD 
SET 
TRAP 



CIEROF 
510 
T5SSR 
PKTSSR 



IF FATAL ERROR 

TRAP 
WORD 

lIS VOLUME CHECK CLEAR IN XSTO ? 

i OKAY IF VOLUME CHECK IS CLEARED 

iCONTENTS OF TSS n f OR ERROR REPORT 

l VOLUME CHtCK NOT CLEARED 

TRAP 
.WORD 
.WORD 
.WORD 



ClCLPl 



CIESCAPE 

L 10054 - t 



CltRHRD 
511 
TSNVCK 
PKTMES 



KSFSI^GK m& Mc #: 



5162 

5163 
5164 

5165 
5166 



516? 
5168 
5169 
5170 
5171 
5173 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 



030674 
030671 
030676 

030702 
030^04 
030710 
030710 
030712 



030714 
030720 
030720 
030722 
030724 
030726 

030730 
030730 
030732 
030734 
030736 

030742 



030762 
031055 
031131 
031221 
031310 
031407 

031424 
031424 
031424 



104406 

00473? 
103002 
000137 

104432 
000512 



100004 
030730 
000000 
000010 



030742 
000000 
000020 
000000 



126 
126 

126 
103 
116 
126 



104401 



017200 
030252 



D12 
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501; CKLOOP 

601 : JSR PC.TSTLOOP 

BCC 62* 

JMP T5L0OP 

62*j EXIT TST 



000000 



103 
103 
103 
157 
157 
157 



113 
113 
113 
156 
040 
154 



j LOCAL STORAGE 

I - 


FOR THIS TEST 


.BLKB 


10- <. -TUV2A6 


T5PACKET: 




.WORD 


100004 


.WORD 


T5DATA 


.WORD 





♦ WORD 


10 


T5DATA: 




.WORD 


T5BFR 


.WORD 





.UORO 


16. 


■ WORD 


0,0 



T5BFR { ,BLKW 8, 



i LOCAL TEXT 



MESSAGES FOR TEST 



SEQ 146 



» LOOP ON ERROR ? 

TRAP 
I SHOULD WE DO ITERATIONS ? 
» BRANCH IF NOT 
l LOOP UNTIL COUNT EXPIRED 
I ALL DONE THIS TEST 

TRAP 

.WORD 



CiCLPL 



CJEXIT 
L 10054 -. 



»C0MMAN0 PACKET FOR TEST 
>WRITE CHARACTERISTICS COMMAND 
I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF COUNTER 

^CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



I MESSAGE BUFFER 



T5VCKj 

T5VCK2j 

T5NVCK: 

T5SSR: 

T5WSG: 

TST5ID: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

ENDTST 



VCK Bit NOT 

VCK Bit NOT 

VCK Bit Modified 

Con t ant a of TSSR Irvcorract 

No Heaaaoa Packet Raturn*d 

Voluma Ch#<^ * 



Claarad Aftar WRITE CHARACTERISTICS With CVC-1' 

Sat Afttr INITIALIZE With CVC-O' 

Aftar WRITE CHARACTERISTICS With CVC'O' 
Aftar Wrlta Choractar I at lea' 
To Hoat Aftar WRITE CHARACTERISTICS 



L 10054; 



TRAP 



CJETST 



CZTKEA TK25 FRT ENO FUNC #1 
TEST 6 j COMPLETION INTERRUPT 



5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 



E12 
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SEQ 14 7 



5223 
5224 
5225 
523C 
5231 
5232 
5233 
5234 



5235 
5236 
5237 



5238 
5239 
5240 
5241 
5242 

5243 
5244 
5245 
5249 
5250 



5251 
5252 
5253 
5254 
5255 
5256 



031426 
031426 
031426 
031432 
031440 
031444 
031450 
031454 
031462 
031462 
031462 
031462 

031464 
031470 
031470 
031474 
031476 
031502 
031506 
031514 
031514 
031514 

031516 
031522 
031524 
031526 

031526 
031530 
031532 
031534 
031536 
031542 
031546 
031552 
031556 
031560 



005037 
012737 
005037 
012700 
0O4737 
012737 



104402 

004737 

012700 
104441 
012703 
012704 
012764 

104404 

0O4737 
103405 
010001 

104455 

001131 
003550 
011506 
005C37 
005037 
010465 
004737 
10340 7 
010001 



.SBTTL TEST 6} COMPLETION INTERRUPT 



THIS TEST VERIFIES THAT AN INTERRUPT IS GENERATED AT THE 
COMPLETION OF THE WRITE CHARACTERISTICS COMMAND IF THE INTERRUPT 
ENABLE CIE) BIT IN THE COMMANO HEADER WORD IS SET. THIS TEST 
CHECKS THE FUNCTIONING OF THE INTERRUPT LOGIC AND BASIC 
PROCESSING OF THE IE BIT, 

THE SEQUENCES OF TEST 7 ARE REPEATED, EXCEPT THAT THE INTERRUPT 
SERVICE ROUTINE IS SET UP TO EXPECT INTERRUPTS ANO EACH WRITE 
CHARACTERISTICS COMMANO IS ISSUED WITH THE IE BIT SET (1). IT 
IS VERIFIED. WHERE APPROPRIATE, THAT THE IE STATUS BIT IN XSTO 
OF ANY MESSAGE PACKET IS SET ANO THAT A COMPLETION INTERRUPT IS 
GENERATED. FINALLY, A SEQUENCE OF TWO COMMANDS ARE ISSUED, THE 
FIRST WITH IE-1 ANO THE SECOND WITH IE»0. IT 15 VERIFIED THAT 
NO INTERRUPT IS GENERATED AFTER THE SECOND COMMANO ANO THAT THE 
IE BIT IN XSTO IS 0. 



BGNTST 



002170 
005672 
003100 
033401 
017232 
000002 



002146 



002164 



CLR 


FATFLG 


MOV 


*EPRT1,EPRTSW 


CLR 


KTFLG 


MOV 


OTST6ID.R0 


JSR 


PC.TSTSETUP 


MOV 


*2.,L00PCNT 


T6L00P: 





033426 

000000 

002732 
032330 
000010 



016470 



000006 



5$: 



BGNSUG 



JSR 
SETPRI 



MOV 
MOV 
MOV 

BGNSEG 



PC.T6REST 
GPRIOO 



*TSTBLK»10. f R3 

OT6PACKET.R4 

*8.,PKBCNT(R4) 



JSR 


PC.SOFINIT 


BCS 


101 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



T6: : 
, CLEAR FATAL ERROR FLAG 
iSET UP ERROR MESSAGE SWITCH 
jHOLD OFF KT11 

lASCII MESSAGE TO IDENTIFY TEST 
lOO INITIAL TEST SETUP 
jPERFORM 2 ITERATIONS 

j//////////// BEGIN SUBTEST //////////// 

T6.1: 

TRAP CIBSUB 

j SET PACKET TO INITIAL VALUES 
lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO,RO 
TRAP CISPRI 
, START OF TEST DATA 
j GET THE ADDRESS OF COMMANO PACKET 
l START WITH MINIMUM ALLOWABLE VALUE 

j >>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

i DO SOFT INIT OF CONTROLLER 
jBR IF SOFT INIT • OK 
»SAVE CONTENTS OF TSSR 
j DEVICE FATAL ERROR DURING INIT 

TRAP 



002170 
002172 

177776 
017060 



10* j 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4.TS0BCR5) 


JSR 


PCCHKTSSR 


BCS 


15$ 


MOV 


R0.R1 



.WORD 
.WORD 
.WORD 
, CLEAR FATAL ERROR FLAG 
iCLEAR INTERRUPT RECEIVED FLAG 
I SET THE PACKET ADDRESS 
jWAIT FOR ^SR TO SET 
jBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



CIERDF 
601 

SFIERR 
SFIMSG 



CZTKEA TK25 FRT END FUNC 01 
TEST 6: COMPLETION INTERRUPT 



F12 



5260 


031562 








031562 


104455 






031564 


001132 






C31566 


033047 






031570 


011520 




5261 


031572 


004737 


017 724 


5262 


031576 








031576 


104406 




5263 


031600 








031600 


104410 






031602 


000056 




5264 


031604 


005737 


002172 


5265 


031610 


001004 




5269 


031612 








031612 


104456 






031614 


001133 






031616 


033136 






031620 


011520 




5270 


031622 


016501 


000000 


5271 


031626 


012702 


000200 


5272 


031632 


032701 


OOOIOO 


5273 


031636 


001402 




5274 


031640 


052702 


000100 


5275 


031644 


020201 




5276 


031646 


001404 




5280 


031650 








031650 


104456 






031652 


001134 






031654 


032406 






031656 


011520 




5281 


031660 






5282 


031660 
031660 








031660 


104405 




5283 








5284 


031662 


012364 


000006 


5285 


031666 


020327 


003030 


5286 


031672 


103002 




5287 


031674 


000137 


031514 


5288 








5289 


031700 
031700 








031700 


104403 




5290 








5291 


031702 


005737 


002170 


5292 


031706 


001402 




5293 


031710 


004737 


017776 


5294 


031714 







15$: 



22$: 



25$: 



WH-IW 


OS; 12 PAGE 1 


00-1 




SEQ 148 


ERRDF 


ERRN0.T6SSR, 


PKTSSR 


j DEVICE FATAL SSR FAILED TO SET 

TRAP 
,WORD 
.WORD 
.WORD 


C$ERDF 
602 
T6SSR 
PKTSSR 


JSR 


PC.FATCHK 




j INC AND CHECK FOR MORE THAN 25 


ERRORS 


CKLOOP 






lLOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


ESCAPE 


SEG 




j BY -PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 


C$ESCAPE 
10000$-, 


TST 


INTRECV 




1 DID AN INTERRUPT OCCUR ? 




BNE 


22$ 




1 BRANCH IF YES 




ERRHRD 


ERRN0.T6NINT 


.PKTSSR 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
603 
T6NINT 
PKTSSR 


MOV 


TSSRCR5),R1 




»GET THE CONTENTS OF TSSR 




MOV 


*SSR,R2 




jEXPECTED CONTENTS OF TSSR 




BIT 


<K)FL,R1 




j IS OFF-LINE. BIT SET ? 




BEQ 


25$ 




jBRANCH IF NOT OFF-LINE 




BIS 


O0FL.R2 




;SET OFF-LINE IN EXPECTED DATA 





30$; 



55$: 



ENDSEG 



MOV 
CMP 
BHIS 
JMP 

ENOSUB 



(R3)*,PKBCNT(R4) 

R3.0TBLEND 

55$ 

5$ 



70$: 



TST 


FATFLG 


BEQ 


70$ 


JSR 


PC.CKDROP 



»DOES EXPECTED MATCH RECEIVED ? 

lOKAY IF MATCH 

I NBA NOT ZERO 

TRAP C$ERHRD 
. WORD 604 
.WORD T6N6A 
.WO.,0 PKTSSR 

;<<<<<<<<<<<<< ENO SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 

j SET THE TEST WORD 
l HAS ALL DATA BEEN TESTED ? 
x BRANCH IF ALL DATA DONE 
{BRANCH TILL BACK TO ZERO 

i\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L10056; 

TRAP C$ESU6 

j ANY FATAL ERRORS ? 

j BRANCH IF NOT 

tTRY TO DROP THE UNIT 



CZTKEA TK25 FRT END FUNC *1 
TEST 6: COMPLETION INTERRUPT 



5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
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SEQ 149 



5306 
5307 



5308 
5309 
5310 
5311 
5312 

5313 
5314 
5315 
5319 
5320 



5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5332 



5333 
5334 



5335 
5336 
5340 



5341 



031714 
031714 
031714 

031716 
031716 
031722 
031724 
031730 
031734 

031740 
031740 

031742 
031746 
031750 
031752 
031752 
031754 
031756 
031760 
031762 
031766 
031770 
031772 
031776 
032002 
032006 
032010 
032012 
032012 
032014 
032016 
032020 
032022 
032022 
032024 
032024 
032026 
032030 
032034 
032036 
032036 
032040 
032042 
032044 
032046 



104402 



012700 
104441 
012703 
012704 
004737 



104404 

004737 
105405 
010001 

104455 
001135 
003550 
011506 
005037 
010400 
061300 
056310 
010465 
0O4737 
103405 
010001 

104455 
001136 
033047 
011520 

104406 

104410 
000056 
005737 
001004 

104456 
001137 
033136 
011520 
016501 



J ♦ 



{TEST 6, SUBTEST ? 



{CHECK THAT UNUSED BITS BEING SET CAUSES 
{WRITE CHARACTERISTICS COMMAND TO BE REJECTED 



000000 

032372 
032330 
033426 



016470 



BGNSUB 



SETPRI OPRIOO 



5$: 



MOV 
MOV 
JSR 

BGNSEG 



002172 



000002 
177776 
016744 



10$: 



15$: 



002172 



*T62DATA,R3 

*T6PACKET,R4 

PC.T6REST 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



CLR 


INTRECV 


MOV 


R4.R0 


ADD 


(R3),R0 


BIS 


2(R3),CR0) 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T6SSR>P!<TSSR 



»//////////// BEGIN SUBTEST //////////// 

T6.2: 

TRAP CIBSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRI0O,RO 
TRAP C$SPRI 
{START OF TEST DATA FOR SUBTEST 
{GET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 

•>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 

;D0 SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
. WORD 605 
.WORD SFIERR 
.WORD SFIMSG 

{CLEAR INTERRUPT RECEIVED FLAG 

j START OF THE COMMAND PACKET 

{OFFSET TO THE DATA WORD TO TEST 

{SET THE DATA BITS TO BE TESTED 

{SET THE PACKET ADORESS 

{WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOO RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



000000 



22% i 







TRAP 


C$ERDF 






.WORD 


6CS 






.WORD 


T6SSR 






.WORD 


PKTSSR 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


CICLP1 


ESCAPE 


SEG 


{BY -PASS CHECKS IF FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


10000$-, 


TST 


INTRECV 


{DID AN INTERRUPT OCCUR ? 




BNE 


22$ 


{BRANCH IF YES 




ERRHRD 


ERRN0.T6NINT, PKTSSR 










TRAP 


C$ERHRD 






.WORD 


60 7 






.WORD 


T6NINT 






.WORD 


PKTSSR 


MOV 


TSSRCR5),R1 


{GET THE CONTENTS OF TSSR 





CZTKEA TK25 FRT ENO FUNC *1 
TEST 6: COMPI ETION INTERRUPT 



MACRO M1200 



5542 
5543 
5344 
5345 

5346 

5347 
5351 



5352 
5353 



5354 
5355 
5356 
5357 
5358 
5359 
5360 



032052 
032056 
032062 
032064 
032070 
032072 
032074 
032074 
032076 
032100 
032102 
032104 
032104 
032104 
032104 

032106 
032112 
032116 
032120 

032124 
032124 
032124 



012702 
032/01 
001402 
052702 
020201 
001404 

104456 
001140 
032461 
011520 



104405 

062703 
020327 
103002 
000137 



104403 



102206 
000100 

000100 



25$ 



H12 
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MOV *SC ! SSR ! TSRE J ! NBA , R2 

BIT *0FL,R1 

BEQ 25$ 

BIS <KFL,R2 

CMP R2.R1 

BEQ 30i 

ERRHRD ERRNO , T62RE J , PKTSSR 



30$ 



000004 
032406 

031730 



59$ 



ENDSEG 



ADD 04, R3 

CMP R3,0T62DONE 

BHIS 59$ 

JMP 5$ 

ENDSUB 



SEQ 150 



{EXPECTED CONTENTS OF TSSR 

j IS OFF-LINE BIT SET ? 

j BRANCH IF NOT OFF-LINE 

jSET OFF-LINE IN EXPECTED DATA 

lOOES EXPECTED MATCH RECEIVED ? 

jOKAY IF MATCH 

I COMMAND NOT REJECTED 

TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 
608 

T62REJ 
PKTSSR 



}<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP CSESEG 

{POINT TO NEXT DATA PAIR 
, COMPARE TO ENO OF TEST DATA 
{BRANCH IF ALL DATA TESTED 
{BRANCH TILL BACK TO ZERO 

|\W\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 10057; 

TRAP C$ESUB 



CZTKEA TK25 FRT END FUNC 91 
TEST 6: COMPLETION INTERRUPT 



536? 
5365 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
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SEQ 151 



5372 
5373 



5374 
5375 
5376 
5377 
5378 
5379 
5380 
5384 
5385 



5386 
5387 
5388 
5389 
5390 
5391 
5395 



5396 

5397 



5398 
5399 
5403 



5404 
5405 
5406 

5407 
5408 



032126 
032126 
032126 

032130 
032130 
032134 
032136 
032142 
032146 



032152 
032156 
032160 
032162 
032162 
032164 
032166 
032170 
032172 
032176 
032204 
032210 
032214 
032216 
032220 
032220 
032222 
032224 
032226 
032230 
032230 
032232 
032232 
032234 
032236 
032242 
032244 
032244 
032246 
032250 
C32252 
032254 
032260 
032264 
032270 
032272 



104402 



012700 
104441 
012703 
012704 
004737 



004737 

10^405 
010O01 

104455 
001141 
00i550 
011506 
005037 
052737 
010465 
004737 
103405 
010001 

104455 
001142 
033047 
011520 

104406 

104410 
000056 
005737 
001004 

104456 
001143 
033136 
011520 
016501 
012702 
032 701 
001402 
052701: 



I ♦ 



jTEST 6, SUBTEST 3 



{SUBTEST TO VERIFY THAT A WRITE CHARACTERISTICS COMMAND IS 
{REJECTED IF AN ILLEGAL DATA BLOCK ADDRESS IS ISSUED. 



000000 

032372 
032330 
033426 



016470 



5$: 



BGNSUB 



SETPRI OPRIOO 



MOV 0T62DATA.R3 
MOV #T6PACKET,R4 
JSR PC.T6REST 



JSR PC.SOflNIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO , SF IERR , SFIMSG 



002172 
000001 
177776 
016744 



032340 



10$: 



CLR 


INTRECV 


BIS 


•1.T6DATA 


MOV 


R4.TSD6CR5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRNO, T6SSR.PKTSSR 



15$: 



002172 



000000 
102206 
000100 

000100 



22$: 



%//////////// BEGIN SUBTEST //////////// 

T6.3: 

TRAP CiBSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 0PRIO0,R0 

TRAP C$SPRI 

{START OF TEST DATA FOR SUBTEST 
iGET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 



iDO SOFT INIT OF CONTROLLER 

j BR IF SOFT INIT - OK 

j SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.UOflD 609 
.WOKD SFIERR 
.WORD SFIMSG 

I CLEAR INTERRUPT RECEIVED FLAG 

;MAKE ADDRESS ODD 

{SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

iBH IF CARRY SET CGOOO RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 







TRAP 


C$ERDF 






,WO«D 


610 






.WOrtD 


T6SSR 






.WO«D 


PKTSSR 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


SUB 


{BY -PASS SUBTEST IF FATAL ERROR 








TRAP 


CiESCAPE 






.WORD 


L 10060 -. 


TST 


INTRECV 


{DID AN INTERRUPT OCCUR ? 




BNE 


22% 


{BRANCH IF YdS 




ERRHRD 


ERRNO, T6NINT. PKTSSR 










TRAP 


CSERHRD 






.WORD 


611 






.WORD 


T6NINT 






.WOflD 


PKTSSR 


MOV 


TSSR(R5),R1 


{GET THE CONTENTS OF TSSR 




MOV 


«SC!SSR!TSREJ!NBA,R2 


{EXPECTED CONTENTS OF TSSR 




BIT 


OOFL.Rl 


{IS OFF-LINE BIT SET ? 




BEQ 


25$ 


{BRANCH IF NOT OFF -LINE 




BIS 


*0FL,R2 


{SET OFF-LINE IN EXPECTED DATA 





CZTKEA TK25 FRT END FUNC 01 
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SEQ 152 



5409 
5410 
5414 



5415 
5416 
5417 



5418 



032276 
032300 
032302 
032302 
032304 
032306 
032310 
032312 

032312 
032312 
032312 



020201 
001404 

104456 
001144 
032653 
011520 



104403 



25$: 



CMP R2.R1 

BEQ 30$ 

ERRHRD ERRNO , T64RE J , PKTSSR 



{DOES EXPECTED MATCH RECEIVED ? 



30$: 



j OKAY IF MATCH 






j COMMAND NOT REJECTED 








TRAP 


CtERHRD 




.WORD 


612 




.WORD 


T64REJ 




.WORD 


PKTSSR 



ENDSUB 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10060: 

TRAP C*ESUB 



CZTKEA TK25 FR1 END FUNC CI 
TEST 6: COMPLETION INTERRUPT 



K12 
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SEQ 153 



5420 
5421 



5422 
5423 
5424 
5425 
5426 
5428 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
544 7 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
54 70 
5471 
54 72 
54 73 
54 74 
54/5 
5476 



032314 
03P314 
032316 



032320 
032330 
032330 
032332 
032334 
032336 

032340 
032340 
032342 
032344 
032346 

032352 



032372 
032372 
032376 
032402 



032406 
032461 

032560 
032653 
032751 
033047 
033136 
033227 
033316 
033401 



104432 
001162 



100204 
032340 
000000 
000010 



032352 
000000 
000016 
000000 000000 



000000 036140 

000002 000001 

000004 100100 
032406 



127 
127 

127 
127 
127 
103 
105 
125 
111 
103 



122 
122 
122 
122 
122 
157 
170 
156 
156 
157 



111 
111 
111 
111 
111 
156 
160 
145 
143 
155 



EXIT 



TST 



jALl. DONE THIS TEST 



TRAP 
.WORD 



CiEXIT 
L 10055 -. 



j LOCAL STORAGE FOR THIS TEST 



T6PACKET: 



.BLKB 10-<,~TUV2A67> 



T6DATA; 



.WORD 

. wono 

. WuRO 

.WORD 



.WORD 
.WORD 
.WORD 
. WORD 



100204 

T6DATA 



8. 



T6BFR 


14, 
0,0 



T68FR; .BLKW 8. 
*- 

TEST DATA FOR SUBTEST TWO 
DATA HAS FOMAT: 



1ST WORD OFFSET TO TEST WORD IN PACKET 
2ND WORD BITS TO SET FOR TEST 



j COMMAND PACKET FOR TEST 

{WRITE CHAR COMMAND. WITH IE. ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 
{MESSAGE BUFFER 



T62DATA: 



T62D0NE 



.WORD 0,BIT5!BIT6!BIT6!BIU0!BIT11JBIT12!BIT13 
.WORD 2.BIT0 
.WORD 4.BIT65BIU5 



{LOCAL 
i - 

T6NBA: 

T62REJ 

T63REJ 

T64REJ 

T65REJ 

T6SSR: 

T6N1NT: 

T6INT: 

T6TSBA: 

TST6ID: 



TEXT MESSAGES FOR TEST 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



CHARACTERISTICS 
CHARACTERISTICS 
CHARACTERISTICS 
CHARACTERISTICS 
CHARACTERISTICS 



WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

Content* of TSSR Incorrect Arter WRITE CHARACTERISTICS 

Expected Interrupt Not Received On WRITE CHARACTERISTICS 

Unexpected Interrupt Received On WRITt CHARACTERISTICS' 

Incorrect TSBA Address After WRITE CHARACTERISTICS' 

Completion Interrupt' 



Commend Not Accepted' 

Not Rejected With Non-Zero Unused Fields 
Not Rejected With Invalid Dote Count' 
Not Rejected With Invalid Block Address' 
Not Rejected With Invalid Buffer Length' 



CZTKEA TK25 FRT END FUNC *1 
TEST 6; COMPLETION INTERRUPT 



54 78 
5479 
5480 
5481 
5482 
5483 
5484 

5485 033426 

5486 033426 

5487 033432 

5488 033436 

5489 033442 

5490 033446 

5491 033450 

5492 033454 

5493 C33460 

5494 033462 

5495 033466 

5496 033470 

5497 033472 

5498 033476 

5499 033500 
033500 
033500 
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SEQ 154 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



104401 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

i 
i - 



T6RESTi 



032330 
100204 
032340 

000010 
032352 

000016 



032352 



SAVREG 




MOV 


0T6PACKET.R1 


MOV 


•' 100204, CRD* 


MOV 


wT60ATA,(Rl)* 


CLR 


till)* 


MOV 


•■■a. ,(rd+ 


MOV 


*T6BFR ( CR1)+ 


ClR 


CRD* 


MOV 


♦14. ,CRl)f 


CLR 


CRD* 


CLR 


(Rl) 


CLR 


T6BFR 


RTS 


PC 


ENOTST 





;SAVE THE REGISTERS 

j START OF THE PACKET 

.URITE CHARACTERISTICS WITH ACK, IE 

{ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{CLEAR 1ST LOG IN MESSAGE BUFFER 
{RETURN 



L 10055: 



TRAP 



C$ETST 



CZTKEA TK25 FRT END FUNC 41 
TEST 7: BASIC PACKET PROTOCOL 

5501 
5502 
5503 
5504 
5505 
T506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
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SEQ 155 



5517 
5518 
5519 
5524 
5525 
5526 
5527 
5528 
5529 



5530 
5531 
5532 



5533 
-534 
5535 
5536 

5537 

5538 
5539 
5543 
5544 



5545 
5546 
554 7 
5548 
5549 
5550 
5554 



033502 
033502 
033502 
033506 
033514 
033520 
033524 
033530 
033536 

033536 
033536 
033536 

033540 
033544 
033544 
033550 
033552 
033556 
033564 
033564 
033564 

033566 
033572 
033574 
033576 
033576 
033600 
033602 
033604 
033606 
033612 
033616 
033622 
033626 
033630 
033632 
033632 
033634 
033636 



005037 
0.12737 
005037 
012700 
004737 
012737 



104402 

004737 

012700 
104441 
012704 
012764 

104404 

004737 

103405 
010001 

104455 
001275 
003550 
011506 
005037 
005037 
010465 
004737 
103407 
010001 

104455 
0012/6 
036270 



,SfcmL TEST 7: BASIC PACKET PROTOCOL 

THIS TEST VERIFIES BASIC OPERATION OF THE MESSAGE BUFFER RELEASE 
COMMAND, THE FUNCTION OF THE ACK BIT IN THE COMMAND HEADER WORD, 
AND THE REGISTER MODIFICATION REFUSED (RMR) LOGIC. 



TEST 7, SUBTEST 1 

CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 
PROPERLY AND THAT NO INTERRUPT 15 GENERATED EVEN 
IF THE "IE" BIT IS SET IN THE COMMAND PACKET 



BGNTST 



002170 
005672 
003100 
036537 
017232 
000002 



002146 



002164 



T7L00P: 



CLR 


FATFLG 


MOV 


*EPRT1,EPRTSW 


CLR 


KTFLG 


MOV 


4TST71D.R0 


J5R 


PC.TSTSETUP 


MOV 


02, .LOOPCNT 



036566 

000000 

035640 
000010 



016470 



000006 



5$: 



BGNSU6 



JSR 
SETPRI 



MOV 
MOV 

BGNSEG 



JSR 
BCS 
MOV 
ERRDF 



002170 
002172 
1777^6 
017060 



10$; 



PC.T7RST 
OPRIOO 



#T7PACKET,R4 

08..PKBCNTCR4) 



T7: : 

I CLEAR FATAL ERROR FLAG 
j SET UP ERROR MESSAGE SWITCH 
{HOLD OFF KT11 

jASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
{PERFORM 2 ITERATIONS 



;//////////// BEGIN SUBTEST //////////// 

T7.1; 

TRAP CJBSUB 

l SET PACKET TO INITIAL VALUES 
jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV GFRIOO.RO 
TRAP CtSPRI 
{GET THE ADDRESS OF COMMAND PACKET 
j START WITH MINIMUM ALLOUABLE VALUE 

{>>>>>>>>>•*>> BEGIN SEGMENT >>>>>>■>■»*»>> 

TRAP CSBSEG 



PC.50FINIT 

10$ 

RO.R 1 

ERRNU SFIERR,SFXMSG 



CLR 


FATFLG 


CLR 


INTHECV 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


15$ 


MOV 


R0,R1 


ERRDF 


ERRNU.V7SSR.PKTSSR 



;D0 SOFT INIT OF CONTROLLER 

5 BR IF SOFT INIT - OK 

:SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP CttRDF 
.WORD 701 
.UORD SFJERH 
.WORD SFIMSG 

tCLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

j SET THE PACKET ADDRESS 

{WAIT FOR SSR TO SET 

I BR IF CARRY SET CGOC-H RETURN) 

tSAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP CH.RDF 
. WORD ,'LV 
.WORD T7SSR 



C^TKEA TK25 FRT END TUNC 01 
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033640 


011520 




5555 


033642 


004 737 


017724 


5556 


033646 








033646 


104406 




5557 


033650 








033650 


104410 






033652 


000056 




5558 


033654 


005737 


002172 


5559 


033660 


00T004 




5563 


033662 








033662 


104456 






033664 


001277 






033666 


03635 7 






033670 


011520 




5564 


033672 


016501 


000000 


5565 


033676 


012702 


000200 


5566 


033702 


032701 


000100 


5567 


033706 


001402 




5568 


033710 


052702 


000100 


5569 


033714 


020201 




5570 


033716 


001404 




5574 


033720 








033720 


104456 






033722 


001300 






033724 


036270 






033726 


011520 




5575 


033730 






5576 


033730 
033730 








033730 


104405 




5577 


033732 








033732 


104404 




5578 








5579 


033734 


005037 


002172 


5580 


033740 


012737 


025252 


5581 


033746 


012714 


100212 


5582 


033752 


010465 


177776 


5583 


033756 


004737 


017060 


5584 


033762 


103407 




5585 


033/64 


010OO1 




5589 


033766 








033766 


104455 






033770 


001301 






033772 


036270 






033774 


011520 




5590 


033776 


004737 


017724 


5591 


034002 








034002 


104406 




5592 


034004 


005737 


002172 


5593 


034010 


001404 




5597 


034012 








034012 


104456 






034014 


C 31302 






034016 


036450 






0340.50 


011520 




5598 


034022 


016501 


000000 


5599 


034026 


0127Q2 


000200 



15$: 



22$: 



25$: 



30$: 



035662 



45$: 



JSR PC.FATCHK 
CKLOOP 

ESCAPE SEG 



TST INTRECV 

BNE 22$ 

ERRHRD ERRN0,T7NINT»PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


0SSR»R2 


BIT 


00FL.R1 


BEQ 


25$ 


BIS 


O0FL.R2 


CMP 


K2,R1 


£EQ 


30$ 


ERRHRD 


ERRN0 # T7SSR, PKTSSR 



>NDSEG 



BGNSEG 



CLR 


INTRECV 


MOV 


0025252, T7BFR 


MOV 


0100212, (R4) 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


BCS 


45$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T7SSR, PKTSSR 



52$: 



JSR 
CKLOOP 

TST 
BEQ 
ERRHRD 



MOV 
MOV 



PC.FATCHK 



INTRECV 

52$ 

ERRN0.T7INT, PKTSSR 



TSSR(.15),R1 
0SSR»R2 





SEQ 156 


.WORD 


PKTSSR 


{INC AND CHECK FOR MORE THAN 25 


ERRORS 


j LOOP ON ERROR, IF FLAG SET 




TRAP 


CICLPl 


{BY -PASS SUBTEST IF FATAL ERROR 




TRAP 


C$FSCAPE 


.WORD 


10000$-. 


{DID AN INTERRUPT OCCUR ? 




j BRANCH IF YES 




TRAP 


C$ERHRD 


.WORD 


70? 


.WORD 


T7NINT 


.WORD 


PKTSSR 


j GET THE CONTENTS OF TSSR 




j EXPECTED CONTENTS OK TSSR 




lIS OFF-LINE BIT SET ? 




I BRANCH IF NOT OFF-LINE 




jSET OFF-LINE IN EXPECTED DATA 




{DOES EXPECTED MATCH RECEIVED ? 




j OKAY IF MATCH 




j NBA NOT ZERO 




TRAP 


C$ERHRD 


.WORD 


704 


.WORD 


T7SSR 


.WORD 


PKTSSR 



!<<<<<<<<<<<<< r?10 SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C$ESEG 
j >>>>>>>>>*>> BEGIN SEGMENT >>>>>>>>>>>> 

TRAP C$BSEG 



j CLEAR INTERRUPT RECEIVED FLAG 

{WIPE OUT MESSAGE BUFFER AREA 

j SET COMMANO PACKET TO MESS BUF 

;SET THE PACKET ADDRESS 

lUAIT FOR SSR TO SET 

{BR IF CARRY SET CGOOO RETURN) 

;SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
THAN 25 



REL 



{INC AND 
{LOOP ON 

jDTD AN 
{BRANCH 



CHECK FOR 
ERROR, IF 

INTERRUPT 
IF r 



MORE 

FLAG 

OCCUR 



SET 

TRAP 



TRAP 

.WORD 

.WORD 

.WORD 

{GET THE CONTENTS OF TSSR 

{EXPECTED CONTENTS OF TSSR 



CiERDF 

705 

T7SSR 

PKTSSR 

ERRORS 

C$CLP1 



CSERHRD 
706 
T 7INT 
PKTSSR 



C7TKEA TKP5 FRT END FUNC #1 
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5600 
5601 
5602 
5605 
5604 
5608 



5609 
5610 
5611 
5612 
5613 
5617 



5616 
5619 
56?0 
5621 
5622 



5623 

5624 



5625 



054032 
054036 
054040 
054044 
054046 
054050 
054050 
054052 
054054 
054056 
054060 
054060 
054064 
054070 
054072 
054074 
054074 
054076 
054100 
054102 
054104 
054104 
054110 
054112 
054116 
054116 
034116 
054120 
034120 
054120 
034130 



032701 
001402 
052702 
020201 
001404 

104436 
001303 
0362 70 
011520 

013701 
012702 
020102 
001404 

104456 
001304 
035744 
016170 

005737 
001403 
004737 



104405 



104402 



000100 
000100 



55$ j 



B13 
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BIT OOFl.Rl 

BEQ 55$ 

BIS *0FL,R2 

CMP R2,R1 

BEQ 60$ 

ERRHRD FRRN0.T7SSR.PKTS5R 



035662 
025252 



60$ s 



MOV 


T78FR.R1 


MOV 


♦025252, R2 


CMP 


R1.R2 


BEQ 


70$ 


ERRHRD 


ERRN0.T7MeF t EXPREC 



002170 
017776 



70$ j 



80$ i 



TST FATFLG 

BEQ 60$ 

JSR PC.CKDRQP 
ENOSEG 



ENOSUe 



SEQ 157 



»IS OFF-LINE BIT SET ? 

, BRANCH IF NOT OFF-LINE 

iSET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED 7 

I OKAY IF MATCH 

T'TSSR INCORRECT AFTER WRT CHARA." 

TRAP C$ERHRO 

. WORD 707 
.WORD T7SSR 
,WORD PKTSSR 

iPICK UP THE 1ST WORD OF MESSAGE BUFFER 

»SET UP EXPECTED DATA 

,WAS ANY MESSAGE REC'D 

|BR. IF OK (EQUAL) 

^MESSAGE BUFFER WAS MODIFIED 

TRAP 

.WORD 

.WORD 



CIERHAD 

708 

T7MBF 

.WORD EXPREC 



I ANY FATfeL ERRORS 
jBR, IF NO FATAL ERRORS 
t THY TO DROP THE UNI T 
,<<<<<<<<<<<<< END SEGMENT 

100011: 

TRAP 



<<<<<<<< < < 4 < < 



CiESEG 



!//////////// £N0 SUBTEST //////////,'/ 

L 10062; 

TRAP C*ESL« 



C/TKEA TKjJS FRT ENO f UNC fl 
TEST /; BASIC PACKET PROTOCOL 



562 7 
5628 
5629 
5630 
5631 
563? 
5633 
5634 
5635 
5636 
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SEQ 158 



5637 
5638 
5639 



5640 
5641 
5642 
5643 

5644 

5645 
5646 
5650 
5651 



5652 
5653 
5654 
5655 
5656 
565/ 
5658 
5662 



5663 
5664 

5665 



5666 

566 7 
5671 



5672 



03412? 
054122 
034122 

034124 
034130 
034130 
054134 
034156 
054142 
054150 
054150 
054150 

054152 
054156 
054160 
034162 
054162 
054164 
054166 
054170 
054172 
054176 
054202 
054210 
054214 
054220 
054222 
054224 
034224 
034226 
054250 
054252 
054254 
034240 
054240 
054242 
054242 
054244 
054246 
054252 
054254 
034254 
054256 
054260 
034262 
Q34264 



104402 

004737 

012700 
104441 
012704 
012764 

104404 

0O4737 
105405 
010001 

104455 
001505 
005550 
011506 
005037 
005037 
012737 
010465 
004737 
103407 
010001 

104455 
001306 
0362 70 
011520 
004737 

104406 

104410 
000056 
005737 
001004 

104456 
001307 
036357 
011520 
016501 



I ♦ 

» TEST 7, SUBTEST 2 

I 

l CHECKS THAT THE MESSAGE BUFFER RELEASE COMMAND WORKS 

»PR0PERLY AND THAT THERE IS AN INTERRUPT IF T>€ "IE" 

iBIT is SET IN THE COMhANO PACKET ANO THE "ERI" BIT 

iIS SET IN THE CHARACTERISTICS DATA PACKET 

I 

l - 



036566 

000000 

035640 
000010 



016470 



000006 



5$: 



BGN5UB 



JSR 
SETPRI 



MOV 
MOV 

BGNSEG 



002170 
002172 
000020 

177776 
017060 



10$: 



035656 



017724 



150 : 



002172 



PC.T7RST 
#PRI00 



♦T7PACKET.R4 
*8. ,PKBCN r CR4) 



i//////////// BEGIN SUBTEST //////////// 

T7,2: 

TRAP CIBSLW 

I SET PACKET TO INITIAL VALUES 
jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV #PRIOO,no 

TRAP ClSPRl 

» GET THE ADDRESS OF C0f*1AN0 Pr CKE T 
I START WITH MINIMUM ALLOUAPi VALUE 

;>*%)>*>>»>>> BEGIN SEGMEN. >>>>*-,»>,»>> 

TRAP CIBSEG 



JSR 


PC.SOFINIT 


jDO SOFT INIT OF CONTROLLER 




BCS 


101 


iBR IF SOFT INIT - OK 




MOV 


P0.R1 


iSAVE CONTENTS OF T5S9 




ERRDF 


ERRNO.SFIERR.SFIMSG 


lOEVICE FATAL ERROR DURING INIT 








TRAP 


CtERDf 






.WORD 


709 






.WORD 


SFIERR 






.WORD 


SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


♦000020, T7DATA»6 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


151 


MOV 


R0.R1 


ERRDF 


ERRN0.T7SSR.PKTSSR 



iCLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

iSET ERI IN CHARACTERISTICS DAT 

j SET THE PACKET ADORESS 

iWAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

iSAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 



QGGQGO 



221* 







TRAP 


CIERDF 






.WORO 


710 






.WORO 


T7SSR 






.WORD 


PKTSSR 


JSR 


PC,FATCHK 


iINC ANO CHECK FOR MORE THAN 25 


ERRORS 


CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


ClCLPl 


ESCAPE 


SEG 


iBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


ClESCAPl 






.WORD 


10000* -. 


TST 


INTRECV 


lOID AN INTERRUPT OCCUR ? 




BNE 


22 1 


j BRANCH IF YES 




ERRHRD 


ERRN0.T7NINT.PKTSSR 










TRAP 


ClER^D 






.WORD 


711 






.WORD 


T - T NINT 






.WORD 


PKTSSR 


MQV 


TSSR(R5)»Ri 


llitT THE CONTENTS UK TSSR 
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SfcQ 159 



56'3 
567 4 
5675 
5676 
567 V 
567G 
5682 



5683 
5684 



56*5 

5686 
5b87 
5688 
5689 
5690 
5691 
5692 
5693 
5697 



5698 
5699 

5700 
5701 
5705 



5706 
5707 
5708 
5709 
5710 
5711 
5712 
5716 



5717 
5718 
5719 
5720 
5721 



034270 
034274 
034300 
034302 
034306 
034310 
034312 
034312 
054314 
034316 
034 320 
034 322 
034322 
034322 
034322 
034324 
034324 

034326 
034332 
034340 
034344 
034 350 
034354 
054356 
034360 
034360 
034362 
034364 
054566 
054370 
054374 
054374 
034376 
034402 
034404 
054404 
034406 
054410 
054412 
054414 
034420 
054424 
054430 
054432 
054456 
054440 
054442 
054442 
054444 
054446 
054450 
034452 
034452 
034456 
034462 
034464 



012702 
032701 
001402 
052702 
020201 
001404 

104456 
001310 
036270 
011520 



104405 

104404 

005037 
012737 
012714 
010465 
004737 
103407 
010001 

104455 
001311 
036270 
011520 
0O4737 

104406 
005737 
001004 

104456 
001312 
036450 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
001313 
036270 
011520 

013701 
012702 
020102 
001404 



000200 
000100 

000100 



25$: 



30$: 



002172 
025252 
100212 
177776 
017060 



035662 



017724 
002172 



45$: 



000000 
000200 
000100 

000100 



52$: 



55$: 



MOV 
BIT 
BEQ 
BIS 

CMP 
BEQ 
ERRHRD 



ENDSEG 



BGNSEG 



035662 
025252 



60$ i 



#SSR,R2 

#0FL,R1 

25$ 

#0FL,R2 

R2,R\ 

30$ 

ERRN0,T7SSR,PKTSSR 



lEXPECTED CONTENTS OF TSSR 

jIS OFF-LINE BIT SET ? 

j BRANCH IF NOT OFF LINE 

»SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

I OKAY IF MATCH 

I NBA NOT ZERO 

TRAP 
.WORD 
.WORD 
.WORD 



CiERHRD 
712 
T7SSR 
PKTSSR 



, << <<<<<<<<<<< fcNO SEGMENT <<<<<<<<<<<<< 

100001: 

TRAP C$ESEG 

!>>>>>>)>>)>> BEGIN SEGMENT >>>>>>>>>>*> 

TRAP CIBSEU 



CLR 


INTRECV 


MOV 


♦025252, T7BFR 


MOV 


#100212. (R4) 


MOV 


R4,TSD6(R5) 


JSR 


PC.CHKTSSR 


BCS 


45$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T7SSR, PKTSSR 



iCLEAR INTERRUPT RECEIVED Fl AG 

I WIPE OUT MESSAGE BUFFER AREA 

iSET COMMAND PACKET TO MESS BUF 

j SET THE PACKET ADDRESS 

j WAIT FOR SSR TO SE T 

,BR IF CARRY SET CGOOO RETURN) 

l SAVE CONTENTS OF TSSR 

(DEVICE FATAL SSR FAILED TO SET 



REL 











TRAP 


C$ERDF" 










.WORD 


713 










.WORD 


T7SSR 










.WORD 


PKTSSR 


JSR 


PC.EATCHK 




: INC ANO CHECK FOR MORE 


THAN 25 


ERRORS 


CKLOOP 






lLOOP ON ERROR, IF FLAG 


SET 

TRAP 


C$CLP1 


TST 


INTRECV 




;DIO AN INTERRUPT OCCUR 


V 




BNE 


52$ 




1 BRANCH IF YES 






ERRHRD 


ERRN0,T7INT, 


.PKTSSR 




TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 

714 

T/INT 

PKTSSR 


MOV 


TSSR(R5),Rl 




jGET THE CONTENTS OF TSSR 




MOV 


#SSR,R2 




lEXPECTED CONTENTS OF TSSR 




BIT 


•Of L ,Rl 




I IS OFF-LINE BIT SET ? 






BEQ 


55$ 




iBRANCH IF NOT OFF-LINE 






BIS 


♦0FL.R2 




iSET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 




jDOES EXPECTED MATCH RECEIVED ? 




BEQ 


60$ 




lOKAY IF MATCH 






ERRHRD 


ERRN0.T7SSR, 


►PKT5SR 


iNBA NOT SET 


TRAP 
.WORD 
.WORD 
.WORD 


CtERHRD 
715 
T /SSR 
PKTSSR 



MOV 


T7BFR.R1 


MOV 


#025252, R£ 


CMP 


R1.R2 


BEQ 


70$ 



j PICK UP THE 1ST WORD OF MESSAGE BUFFER 
iSET UP EXPECTED DATA 
l WAS ANY MESSAGE RfcC'D 
l9R, IF QK (EUUAL) 
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5755 



5726 
5727 
5728 
5729 
5730 
5731 
5732 



5733 



034466 
034466 
034470 
034472 
034474 

034476 
0344 76 
034502 
034504 
034510 
034510 
034510 
034510 
034512 



104456 
001314 
035744 
016170 



005737 002170 

001402 

004737 017776 



104405 



70*5 



80$; 



ERRHRD ERRNO , T 7MBF , EXPREC 



TST 


FATFLG 


BEQ 


80* 


JSR 


PC.CKDROP 



ENDSEG 



ENDSUB 



i MESSAGE BUFFER WAS MODIFIED 

TRAP 
.WORD 

.WORD 
,WQRD 



SEQ 160 



C$ERMRD 
716 
T7MBF 
EXPREC 



034512 104403 



{ANY FATAL ERRORS 

I BR, IF NO FATAL ERRORS 

»TRY TO DROP THE UNIT 

,<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10001$; 

TRAP CftESEG 
\//////////// END SUBTEST //////////// 

L 10063; 

TRAP C$ESU6 



CZTKEA TK25 FRT END FUNC 01 
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SEQ 161 



5735 








5736 








5737 








5738 








5739 








5740 








5741 








5742 








5743 


034514 
034514 








034514 


104402 




5744 








5745 


034516 


004737 


036566 


5746 


034522 








034522 


012700 


000000 




034526 


104441 




5747 


034530 


0127J4 


035640 


5748 


034534 


012764 


000010 


5749 


034542 






5750 


034542 








034542 


104404 




5751 








5752 


034544 


004737 


016470 


5753 


034550 


103405 




5757 


034552 


010001 




5758 


034554 








034554 


104455 






034556 


001315 






034560 


003550 






034562 


011506 




5759 


034564 


005037 


002170 


5760 


034570 


005037 


0O2172 


5761 


034574 


010465 


177776 


5762 


034600 


004737 


017060 


5763 


034604 


103407 




5764 


054606 


010001 




5768 


034610 








034610 


104455 






034612 


001316 






034614 


036270 






034616 


011520 




5769 


034620 


004737 


017724 


5770 


034624 








034624 


104406 




5771 


034626 








034626 


104410 






034630 


000056 




5772 


034632 


005737 


002172 


5773 


034636 


001004 




5777 


034640 








034640 


104456 






034642 


001317 






034644 


036357 






034646 


011520 




5778 


034650 


016501 


000000 


5779 


034654 


012/0? 


000200 


5780 


034660 


032701 


000100 



{TEST 7, SUBTEST 3 

i 

j CHECKS THAT THE CPU GIVES UP OWNERSHIP OF THE MESSAGE BUFFER 

iAFTER THE MESSAGE BUFFER RELEASE, AND THAT FOLLOWING COMMANDS 

jWORK CORRECTLY 

J 

t - 



000006 



5*: 



BGNSU6 



JSR 
SETPRI 



MOV 
MOV 

BGNSEG 



10$ 



15$ 



PC.T7RST 
OPRIOO 



«T7^ACKET.R4 
$8.,PKBCNT(R4) 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR,SFIMSG 



I //////////// BEGIN SUBTEST //////////// 

T7.3; 

TRAP CIBSUB 

I SET PACKET TO INITIAL VALUES 
jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV *PRIOO.R0 
TRAP CISPRI 
jGET THE ADDRESS OF COMMAND PACKET 
{START WITH MINIMUM ALLOWABLE VALUE 

!>>>>>>>>>>>> BEGIN SEGMENT >>>>>,>>>>>> 

TRAP C$BSEG 



{DO SOFT INIT OF CONTROLLER 
{BR IF SOFT INIT - OK 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL ERROR DURING INIT 

TRAP 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


R4,TSDB(R5) 


JSR 


PCCHKTSSR 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0,T7SSR,PKTSSR 



.WORD 
.WORD 
.WORD 

{CLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

{ WAIT FOR SSR TO SET 

{BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



C$ERDF 
717 

SFIERR 
SFIMSG 



22$ J 







TRAP 


CiERDF 






.WORD 


718 






.WORD 


T7SSR 






.WORD 


PKTSSR 


JSR 


PC.FATCHK 


j INC ANO CHECK FOR MORE THAN 25 


ERRORS 


CKLOOP 




{LOOP ON ERROR, IF FLAG SET 








TRAP 


C*CLP1 


ESCAPE 


SEG 


{BY -PASS SUBTEST IF FATAL ERROR 








TRAP 


CIESCAPE 






.WORD 


10000$ •. 


1ST 


INTRECV 


{DID AN INTERRUPT OCCUR ? 




BNt 


2.2 X 


{BRANCH IF YES 




ERRHRD 


ERRN0,T7NINT t PKTSSR 










TRAP 


CifcRHRD 






.WORD 


71Q 






.WORD 


T7NINT 






.WORD 


PKTSSR 


MOV 


1SSR(R5),R1 


{GET THE CONTENTS Of-' TSSR 




MOV 


0SSR.R2 


{EXPECTED CONTENTS OF TSSR 




BIT 


ftOF'L.Rl 


{IS OFF-LINE BIT SET ? 





CZTKEA ' 
TEST 7: 


rK?5 FRT 


END FUN 
PACKET P 


fiOTOCOL 


: BASIC 


5781 


034664 


001402 




5782 


034666 


052702 


000100 


5783 


034672 


020201 




5784 


034674 


001404 




5788 


034676 








034676 


104456 






034 700 


001320 






034702 


036270 






034 704 


011520 




5789 


034 706 






5790 


034706 
034706 








034 706 


104405 




5791 


034710 








034710 


104404 




5792 


034712 


004737 


036566 


5793 


034716 


005037 


002172 


5794 


034722 


012737 


025252 


5795 


034730 


012714 


100212 


5796 


034734 


010465 


177776 


5797 


034740 


004737 


017060 


5798 


034744 


103407 




5799 


034746 


010001 




5803 


034750 








034750 


104455 






034752 


001321 






034754 


03620O 






034756 


011520 




5804 


034760 


004737 


017724 


5805 


034764 








034764 


101406 




5806 


034766 


005737 


002172 


5807 


034772 


001404 




5811 


034774 








034774 


104456 






034776 


001322 






035000 


036450 






035002 


011520 




5812 


035004 


016501 


000000 


5813 


035010 


012702 


000200 


5814 


035014 


032701 


000100 


5815 


035020 


001402 




5816 


035022 


052702 


000100 


5817 


035026 


020201 




5818 


035030 


001404 




5822 


035032 








035032 


104456 






0i5034 


001323 






035036 


036270 






035040 


011520 




5823 


035042 






5824 


035042 


013701 


035662 


5825 


035046 


012702 


025252 


5826 


035052 


020102 




5827 


035054 


001404 




5831 


035056 
035056 


104456 
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25$; 



BEQ 
BIS 
CMP 
BEQ 
ERRHRD 



30$; 



ENDSEG 



BGNSEG 



035662 



45$; 



JSR 

CKLOOP 

TST 
BEQ 
ERRHRD 



52$; 



55$; 



60$ J 



25$ 

40FL.R2 

R2.R1 

30$ 

ERRN0.T7SSR.PKTSSR 



JSR 


PC.T7RST 


CLR 


INTRECV 


MOV 


4025252, T7BFR 


MOV 


4100212, CR4) 


MOV 


R4,TSDBCR5) 


JSR 


PCCHKTSSR 


BCS 


45$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T7SSRM, PKTSSR 



PC,FATCHK 



INTRECV 

52$ 

ERRN0.T7INT, PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


4SSR.R2 


BIT 


40FL.R1 


BEQ 


55$ 


BIS 


40FL.R2 


CMP 


R2.R1 


BEQ 


60$ 


ERRHRD 


ERRN0.T7SSR, PKTSSR 



MOV 


T7BFR.R1 


MOV 


4025252, R2 


CMP 


R1.R2 


BEQ 


70$ 


ERRHRD 


ERRNQ f T7MBF«EXPREC 



SEU 162 



i BRANCH IF NOT OFF-LINE 

I SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

I OKAY IF MATCH 

{NBA NOT ZERO 

TRAP 
.UORD 
.WORD 
.UORD 

;<<<<<<<<<<<<< ENO SEGMENT <<<< 

10000$: 

TRAP 
,>>>>>>>>>>>> BEGTN SEGMENT >>> 

TRAP 
{RESET PACKETS ANO COMMANDS 
l CLEAR INTERRUPT RECEIVED FLAG 
I WIPE OUT MESSAGE BUFFER AREA 
;SET COMMANO PACKET TO MESS BUF 
I SET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 
;BR IF CARRY SET (GOOD RETURN) 



CIERHRD 
720 
T7SSR 
PKTSSR 

<<<<<<<<< 

C$ESEG 
>>>>>>>>> 

C$BSEG 



REL 



{SAVE CONTENTS OF 



TSSR 



{DEVICE FATAL SSR FAILED TO SET 






TRAP 


C$ERDF 




.WORD 


721 




.UORD 


T7SSRM 




.WORO 


PKTSSR 


jINC ANO CHECK FOR MORE 


THAN 25 


ERRORS 


{LOOP ON ERROR, IF FLAG 


SET 






TRAP 


C$CLP1 


iDID AN INTERRUPT OCCUR 


? 




{8RANCH IF NO 








TRAP 


C$ERHRD 




.WORD 


722 




.WORD 


T7INT 




.WORD 


PKTSSR 


{GET THE CONTENTS OF TSSR 




jEXPEr-ED CONTENTS OF TSSR 




jIS VF-LINE BIT SET ? 






.. rcANCH IF NOT OFF-LINE 






{SET OFF-LINE IN EXPECTED DATA 




{DOES EXPECTED MATCH RECEIVED ? 




I OKAY IF MATCH 






jNBA NOT SET 








TRAP 


C$ERHPD 




.WORD 


723 




.UORD 


T7SSR 




.WORD 


PKTSSR 


{PICK UP THE 1ST WORD Of 


" MESSAGE BUFFER 



{SET UP EXPECTED DATA 
{WAS ANY MESSAGE REC'D 
{BR, IF OK (EQUAL) 
{MESSAGE BUFFER WAS MODIFIED 

TRAP 



C$ERHRD 



CZTKEA TK25 FRT END FUNC 01 
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SEQ 165 





035060 


001324 






035062 


035744 






035064 


016170 




5832 








5833 


035066 








035066 


104406 




5834 








5835 


035070 


005037 


002172 


5836 


035074 


004737 


036566 


5837 


035100 


042714 


100000 


5838 


035104 


010465 


177776 


5839 


035110 


004737 


017060 


5840 


035114 


103407 




5841 


035116 


010001 




5845 


035120 








035120 


1044~5 






035122 


001325 






035124 


036270 






035126 


011520 




5846 


035130 


004737 


0x7724 


5847 


035154 








035134 


104406 




5848 


035136 








035136 


104410 






035140 


000062 




5849 


035142 


005737 


002172 


5850 


035146 


001006 




5854 


035150 


016500 


000000 


5855 


035154 








035154 


104456 






035156 


001326 






035160 


036357 






035162 


011520 




5856 


035164 


016501 


OOOOOO 


5857 


035170 


012702 


000200 


5858 


035174 


032701 


000100 


5859 


035200 


001402 




5860 


035202 


052702 


000100 


5861 


035206 


020201 




5862 


035210 


001404 




5866 


035212 








035212 


104456 






035214 


001327 






035216 


036270 






035220 


011520 




5867 


035222 






5868 


035222 
035222 








035222 


104405 




5869 


035224 


005737 


002170 


5870 


035230 


001403 




5871 


035232 


004737 


017776 


5872 








5873 


035236 








035236 


104404 




58/4 


035240 


005037 


0023 /2 


5875 


035244 


004737 


036566 



70$ : 



CKLOOP 



CLR 


INTRECV 


JSR 


PC.T7RST 


BIC 


*100OO0,CR4) 


MOV 


R4,TSDBfR5) 


JSR 


PC.CHKTSSR 


BC5 


75$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T7SSR, PKTSSR 



75$: 



82$: 



85$: 



90$: 



95$: 



ENDSEG 



TST 
UEQ 

JSR 

HGNSEG 

CLR 
JSR 



.WORD 
.WORD 
.WORD 

;L00P ON ERROR IF FLAG SET 

TRAP 

» CLEAR INTERRUPT RECEIVED FLAG 

»RESET THE PACKETS ANO COMMANDS 

I CLEAR THE ACK BIT 

I SET THE PACKET ADDRESS 

jWAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



724 

T7MBF 

EXPREC 



C$CLP1 







TRAP 


CIERDF 






.WORD 


725 






.WORD 


T7SSR 






.WORD 


PKTSSR 


JSR 


PC.FATCHK 


j INC ANO CHECK FOR MORE THAN 25 


ERRORS 


CKLOOP 




;LOOP ON ERROR, IF FLAG SET 








TRAP 


C$CLP1 


ESCAPE 


SEG 


jBY-PASS SUBTEST IF FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


10001$-, 


TST 


INTRECV 


;DID AN INTERRUPT OCCUR ? 




BNE 


821 


j BRANCH IF YES 




MOV 


TSSR(R5),R0 


j GET TSSR FOR ERROR REPORT 




ERRHRD 


ERRN0,T7NINT,PKTSSR 










TRAP 


CIERHRD 






.WORD 


"26 






.WORD 


T^NINT 






.WORD 


PKTSSR 


MOV 


TSSR(R5),R1 


j GET THE CONTENTS Of TSSR 




MOV 


0SSR.R2 


l EXPECTED CONTENTS OF TSSR 




BIT 


♦0FL.R1 


j IS OFF-LINE BIT SET ? 




BEQ 


85$ 


t BRANCH IF NOT OFF-LINE 




BIS 


•0FL..R2 


liET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 


jDOES EXPECTEO MATCH RECEIVED ? 




BEQ 


90$ 


I OKAY IF MATCH 




ERRHRD 


ERRN0.T7SSR. PKTSSR 


j NBA NOT ZERO 








TRAP 


C$ERHRD 






, WORD 


727 






.WORD 


T7SSR 






.WORD 


PKTSSR 



FATFLG 

95$ 

PC.CKDROP 



INTRECV 
PC.TVRSr 



t <<<<<<<<<< <<< END SEGMENT <<<<<<<<<<<<< 

10001$: 

TRAP C$ESEG 
I ANY FATAL ERRORS 
iBR, IF NO FATAL ERRORS 
l TRY TO DROP THE UNIT 

t <<<<<<<<<<<<< BGN SEGMENT <<<<<*<*»»<<< 

TRAP C$BSEG 
j CLEAR INTERRUPT RECEIVED FLAG 
jRESET THE PACKETS ANO COMMANDS 



CZTKEA TK25 FRT END FL'NC *1 
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SEQ 164 



5876 
5877 
5879 
5879 
5883 



5884 
5885 

5886 



5887 
5888 
5892 
5893 



5894 
5895 
58% 
5897 
5898 
5899 
5900 
5904 



5905 



5906 
5907 
5908 
5909 
5910 



5911 



035250 
035254 
035260 
035262 
035264 
035264 
035266 
035270 
035272 
035274 
035300 
035300 
03530,? 
035302 
035304 
035306 
035312 
035314 
035320 
035320 
035322 
035324 
035326 
035330 
035334 
035340 
035344 
035346 
035352 
035354 
035356 
035356 
035360 
035362 
035364 
035366 
035366 
035366 
035370 
035374 
035376 
035402 
035402 
035402 
035402 
035404 



010465 
004737 
103407 
010001 

104455 
001330 
036270 
011520 
004737 

104406 

104410 
000062 
005737 
001006 
016500 

104456 
001331 
036357 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001405 

104456 

001332 
036270 
011520 



104405 
005737 
001402 
004737 



104403 



177776 
017060 



017724 



100$: 



MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

BCS 100$ 

MOV R0.R1 

ERRDF ERRN0.T7SSR, PKTSSR 



JSP PC.FATCHK 
CKLOOP 

ESCAPE SEG 



002172 
000000 



OOOOOO 
000200 
000100 

000100 



112$: 



125$: 



TST 
BNE 
MOV 
EBUHRD 



MOV 
MOV 
BIT 
BEQ 
BIS 
CMP 
BEQ 
ERRHRD 



ENDSEG 



INTRECV 

112$ 

TSSR(R5),R0 

ERRN0.T7NINT .PKTSSR 



TSSR(R5).R1 

0SSR.R2 

frOFL.Rl 

125$ 

*0FL,R2 

R2.R1 

130$ 

ERRN0.T7SSR, PKTSSR 



002170 
017776 



130$: 


TST 


FATFLG 




BEQ 


140$ 




JSR 


PC.CKDROP 


140$: 







ENDSU6 



j SET THE PACKET ADDRESS 

I WAIT FOR SSR TO SET 

jBR IF CARRY SET CGOOD RETURN) 

» SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

iINC AND CHECK FOR MORE THAN 25 

I LOOP ON ERROR, IF FLAG SET 

TRAP 

jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 

i DID AN INTERRUPT OCCUR ? 

; BRANCH IF YES 

j GET TSSR FOR ERROR REPORT 

TRAP 
.WORD 
.WORD 
.WORD 
jGET THE CONTENTS OF TSSR 
jEXPECTED CONTENTS OF TSSR 
iIS OFF LINE BIT SET ? 
j BRANCH IF NOT OFF-LINE 
jSET OFF-LINE IN EXPECTED DATA 



C$ERDF 

728 

T7SSR 

PKTSSR 

ERRORS 

C$CLP1 

C$ESCMPE 
10002$-. 



C$ERHRD 
729 

T7NINT 
PKTSSR 



iDOES EXPECTED MATCH RECEIVED ? 




jOKAY IF MATCH 




j NBA NOT ZERO 




TRAP 


C$ERHRD 


.WORD 


730 


.WORD 


T7SSR 


.WORD 


PKTSSR 


.<<<<<<<<<<<<< END SEGMENT <<<< 


<<<<<<<<< 


10002$: 




TRAP 


C$fcSfcU 


j CHECK FATAL FLAG FOR SET 




tBR. IF NOT SET COK) 




j DROP DEVICE IF INOICATED 





30$: 



/////////// ENO SUBTEST //////'//*// 
L 10064: 

TRAP C$ESUB 



CZTKEA TK25 FRT END KUNC *1 
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SEQ 165 



5913 








5914 








5915 








5916 








5917 








5918 








5919 








5920 








5921 








5922 


035404 
035404 








035404 


104402 




5923 








5924 


035406 


004737 


036640 


5925 


035412 


0O4737 


036566 


5926 


035416 








035416 


012700 


000000 




035422 


104441 




5927 


035424 


012704 


035640 


5928 


035430 


012703 


035702 


5929 


035434 


012764 


OOOOIO 000006 


5930 


035442 


012763 


000010 000006 


5931 


035450 






5932 


035450 








035450 


104404 




5933 


035452 


004737 


016470 


5934 


035456 


103405 




5938 


035460 


010001 




5939 


035462 








035462 


104455 






035464 


001333 






035466 


003550 






035470 


011506 




5940 


035472 


005037 


002170 


5941 


0354 76 


005037 


002172 


5942 


035502 


010465 


177776 


5943 


035506 


010365 


177776 


5944 


035512 


0O4737 


016744 


5945 


035516 


016501 


000000 


5946 


035522 


032701 


000*00 


5947 


035526 


001006 




5951 


035530 








035530 


104455 






035532 


001334 






035534 


036270 






035536 


011520 




5952 


035540 


004737 


017724 


5953 


035544 








035544 


104406 




5954 


035546 








035546 


104410 






035550 


000056 




5955 


035552 


005737 


002172 


5956 


035556 


001004 




595/ 








5958 








5962 


035560 







{TEST 7, SUBTEST 4 

i 

{CHECKS THAT THE REGISTER MODIFICATION REFUSED (RMR) BIT IN 

{THE TSSR WILL BE GET IE A WRITE CHARACTERISTICS COMMAND 

;BEING EXECUTED AND ANOTHER "WC" COMMAND IS ATTEMPTED 



J - 



5$: 



10$ 



<3GNSUB 



JSR 
JSR 
SETPRI 



MOV 
MOV 
MOV 
MOV 

BGNSEG 

JSR 
BCS 
MOV 
ERRDF 



CLR 
CLR 

MOV 
MOV 
JSR 

cov 

BIT 
BNE 
ERRDF 



15$: 



rsT 

BNE 



PC.T7RT2 
PC.T7RST 
OPRIOO 



R4 



4T7PACKET 
*T7PKT t R3 
#8. .PKBCNTCR4) 
08. .PKBCNTCR3) 



PCSOFINIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



FATFLG 

INTRECV 

R4.TSDBCR5) 

R3,TSUB(R5) 

PC.WAITF 

TSSR(R5),R1 

*SSR,R1 

15$ 

ERRNO,T7SSR,PKT5SR 



JSR PC.FATCHK 

CKl OOP 

ESCAPE c hG 



INTRECV 
22\ 



j //////////// BEGIN SUBTEST //////////// 

T7,4: 

TRAP C$BSUB 

jSET SECOND PACKET UP 

iSET PACKET TO INITIAL VALUES 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 
TRAP C$SPRI 
iGET THE ADDRESS OF COMMAND PACKET 
jGET THE ADDRESS OF 2N0 CMC PACKET 
{START WITH MINIMUM ALLOWABLE VALUE 
{START WITH MINIMUM ALLOWABLE VALUE 



;>>>>>>>>>>>> BEGIN SEGMENT >>> 

TRAP 

{DO SOFT INIT OF CONTROLLER 

{BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

;CLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

jSECONO COMMANO PACKET 

{WAIT FOR SSR TO SET 

{GET CONTENTS OF TSSR REGISTER 

{CHECK FOR SSR (TSSR) SET 

j BR, IF SSR SET (GOOD) 

{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

;INC AND CHECK FOR MORE THAN 25 

{LOOP ON ERROR, IF FLAG SET 

TRAP 

{BYPASS SUBTEST IF FATAL ERROR 

TRAP 
.WORD 
OCCUR ? 



C$BSEG 



C$EROF 
731 

SFIERR 
SFIMSG 



{DID AN 
{BRANCH 



INTERRUPT 
IF YES 



CIERDF 

732 

T7SSR 

PKTSSM 

ERRORS 

CSCLP1 

C$F>CAPt- 
10000$-. 



ERRHRD ERRNO , T 7N INT , PK TSSR 



CZTKt.A TK25 FRT END FUNC *1 
TEST 7: BASIC PACKET PROTOCOL 
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035560 


104456 






035562 


001335 






035564 


036357 






035566 


011520 




5963 


035570 


016501 


000000 


5964 


035574 


012702 


110200 


5965 


035600 


032701 


000100 


5966 


035604 


001402 




596 7 


035606 


052702 


000100 


5968 


035612 


020201 




5969 


035614 


001404 




5973 


035616 








035616 


104456 






035620 


001336 






035622 


036270 






035624 


011520 




59 74 


035626 






5975 


035626 
035626 








035626 


104405 




5976 


035630 
035630 








035630 


104403 




5977 


035632 








03563? 


104432 






035634 


001056 





22$: 



25$: 



MOV 


TSSR(R5),R1 


MOV 


*SSR!RMR»SC,R2 


BIT 


40FL.R1 


BEQ 


25$ 


BIS 


40FL.R2 


CMP 


R2.R1 


BEQ 


*0t 


ERRHRD 


ERRN0.T7SSR, PKTSSR 



30$: 



ENDSEG 
ENDSU6 
EXIT TST 





SEQ 166 


TRAP 


CiERHRD 


.WORD 


733 


.WORD 


T7NINT 


.WORD 


PKTSSR 


jGET THE CONTENTS OF TSSR 




lEXPECTED CONTENTS OF TSSR 




lIS OFF-LINE BIT SET ? 




sBRANCH IF NOT OFF-LINE 




tSET OFF-LINE IN EXPECTED DATA 




jDOES EXPECTED MATCH RECEIVED ? 




:OKAY IF MATCH 




} NBA NOT ZERO 




TRAP 


CfEHHRD 


.WORD 


734 


.WORD 


T7SSR 


. WORD 


PKTSSR 



>,<<<<<<<<<<<<< ecq SEGMENT < <<<<<<<<<<< < 

10000$: 

TRAP C$ESEG 

;//////////// END SUBTEST //////////// 

L 10065: 

TRAP CSESUB 
j ALL QQNfc WITH THIS TEST 

TRAP C»EXI1 
♦ WORD L10061-. 



035636 
035640 
035640 
035642 
035644 
035646 

035650 
035650 
035652 
035654 
035656 

035662 



100204 
035650 
000000 
000010 



035662 
000000 
000016 
000000 



035702 
035702 
035704 
035 706 
035710 

035712 
035712 
035714 
035716 
035720 

035724 



100204 
035712 
000000 
000010 



035724 
000000 
000016 
000000 



DUc'c' 

6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
603;? 
6033 



035744 
036041 
036123 

036200 
036270 
036357 
0364 50 
036537 



115 
116 
116 

103 
10? 



102 



000000 



CZTKEA TK25 FRT END FUNC 01 
TEST 7; BASIC PACKET PROTOCOL 



59 79 

5980 
5981 
5982 
5984 
5986 
5987 
5988 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 
6008 
6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6018 
6019 
602C 
6021 



L.13 
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{ ♦ 

; LOCAL STORAGE FOR THIS TEST 

J - 



000000 



145 

102 
102 

157 

157 
170 
15b 
141 



163 
101 
101 

156 
156 
160 
145 
163 



.BLKB 10-<, ~TUV2A£7> 



T7PACKET: 



.WORD 100204 

.UORD T7DATA 

. WORD 

, WORD 8 . 



T7DATAt 



.WORD T7BFR 

. WORD 

.WORD 14. 

, WORD , 

T7BFR: .BLKW 8, 



{TEST DATA FOR SUBTEST FOUR 

T7PKT: 

.WORD 100204 

.WORD T70TA 

.WORD 

, WORD 8 . 



T7DTA: 



.WORD T7Bl>'R 

.WORD 

.WORD 14. 

.WORD 0,0 



T7BUFR; .BLKW 



5 • 



8. 



SEQ 167 



{COMMAND PACKET FOR TEST 

{WRITE CHAR COMMAND, WITH IE. ACK 

I ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 

j CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{MESSAGE BUFFER 



iCOhMAND PACKET FOR TEST 

{WRITE CHAR COMMAND, WITH IE, ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

, STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{MESSAGE BUFFER 



jl.OCAL TEXT MESSAGES FOR TEST 
i - 

T/MBF; .ASCIZ ' Message Buffer Modified after MESSAGE BUFFER RELEASE Command 

T7NBA: .ASCIZ 'NBA Not Clear After WRITE CHARACTERISTICS Command' 

T7NNBA: .ASCIZ 'NBA Set After MESSAGE BUFFER RELEASE Command' 

T7SSRM: .ASCI/ 'Contents (If TSSR Incorrect After Message Buffer Release' 

T7SSR; .ASCIZ 'Contents of TSSR Incorrect After WRITE CHARACTERISTICS' 

T7NINT; .ASCIZ 'Expected Interrupt Not Received On WRITE CHARACTERISTICS' 

T7INT: .ASCIZ 'Unexpected Interrupt Received On WRITE CHARACTERISTICS' 

TST7I0: .ASCIZ 'Basic Packet Protocol* 
.EVEN 



M 1 v 



o 



012701 
0127^1 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
0050'./ 
000207 



104401 



035640 

100204 
035650 

000010 
035662 

000016 
035662 



CZTKEA T|<25 F'RT END FUNC 01 
TEST 7: BASIC PACKET PROTOCOL 



6035 
6036 
6037 
6038 
6039 
6040 
6041 

6042 036566 

6043 036566 

6044 036572 

6045 036576 

6046 036602 

6047 036606 

6048 036610 

6049 036614 

6050 036620 

6051 036622 

6052 036626 
605* 036630 

6054 036632 

6055 036636 
6056 

6057 
6058 
6059 
6060 
6061 

6062 036640 

6063 036640 
t>064 036644 

6065 036650 

6066 036654 

6067 036660 

6068 036662 

6069 036666 
60/0 036672 
6071 036674 
60 72 036700 
6073 036702 
60/4 036/04 

6075 036/10 

6076 036,12 
036712 
036712 



012701 
012721 
012/21 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
005037 
000207 



035/02 
100204 
035712 

00001 J 
035724 

000016 
055724 
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SEQ 168 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



T7RST 



SAVREG 

MOV #T7PACKET,R1 

MOV #100204, CRD* 

MOV #T7DATA,(Rl)f 

CLR (RD* 

MOV #8.,(Rn + 

MOV #T7BFR,(«D* 

CLR (RD* 

MOV #14., CRD* 

CLR (RD* 

CLR CHI) 

CLR T7BFR 

RTS PC 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE CHARACTERISTICS WITH ACK , 

{ADDRESS OF CHAR DATA BLOCK 

{EX T EN0ED ADDRESS 

j SIZE OF DATA BLOCK IN BYiES 

{ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



IE 



{CLEAR 1ST 
{RETURN 



LOC IN MESSAGE BUFFER 



ROUTINE TO RESTORE CUMMAND PACKET 02 TO START-UP (DEFAULT) VALUES 



T7RT2: 



SAVREG 

MOV 
MOV 
MOV 
CLR 
MOV 
MOV 
CLR 
MOV 
CLR 
CLR 
CLR 
RTS 
ENDTST 



#T7PKT,R1 

#100204, (RD* 

#T7DTA,(R1)* 

(Rl>» 

06. ,CR1)» 

0T7BUFR.CR1)* 

(RD* 

014. ,CR1 )♦ 

CRD* 

(Rl) 

T7BUFR 

PC 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE CHARACTERISTICS WITH ACK, IE 

I ADDRESS OF CHAR DATA BLOCK 

{EXTENDED ADDRFSS 

{SIZE Of- DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{CLEAR 1ST LOC IN MESSAGE BUFFER 
{RETURN 



L10061; 



TRAP 



C*ETST 
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SEQ 169 



6079 








6080 








6081 








608? 








6083 








6084 








6085 








6086 








6087 








6088 








6089 








6090 








6091 


036714 

036714 






609c? 


036714 


005037 


002170 


6093 


036/20 


012737 


005672 


6094 


036726 


005037 


003100 


6099 


036732 


012700 


040272 


6100 


036736 


004737 


017232 


6101 


036742 


012737 


000002 


6102 


036750 






6103 


036750 
036750 








036750 


104402 




bl04 








6105 


036752 








036 752 


012700 


000000 




036756 


104441 




6106 


036760 


004737 


016470 


6107 


036764 


103405 




6111 


036766 


010001 




6112 


036770 








036770 


104455 






0367 72 


0C1441 






036774 


003550 






036776 


011506 




6113 


037000 






6114 


037000 


012704 


037520 


6115 


037004 


004737 


010152 


6116 


037010 


103404 




6120 


037012 








037012 


104456 






037014 


001442 






037016 


004 754 






037020 


011506 




6121 


037022 






6122 


03/022 


004737 


040324 


6123 


037026 


012704 


037450 


6124 


037032 






6125 


037032 








037032 


104404 




6126 








6127 


037034 


005037 


002170 


6128 


037040 


00503 7 


002172 


6129 


037044 


010465 


W7776 


fcl30 


037050 


004 737 


017060 


6131 


037054 


103407 





♦SBTTL TEST 8: NON-TAPE MOTION COMMANDS 



i ♦ 



{THIS TEST VERIFIES PROPER OPERATION OP THE INITIALIZE 
i COMMAND. TWO SUBTESTS ARE USED. THE FIRST VERIFIES THAT 
{THE COMMAND RUNS TO COMPLETION AND STORES A VALID 
{MESSAGE PACKE T . THE SECOND VERIFIES THAT NON-ZERO 
{VALUES IN THE COMMAND MODE FIELD CAUSES COMMAND REJECT. 



BGNTST 



002146 



002164 



T8L00Ps 



CLR 


FATFLG 


MOV 


*EPRT1,EPRTSW 


CLR 


KTFLG 


MOV 


0TST8ID.R0 


JSR 


PC.TSTSETUP 


MOV 


02..L00PCNT 


BGNSUB 





T8: : 
{CLEAR FATAL ERROR FLAG 
jSET UP ERROR MESSAGE SWITCH 
{HOLD OFF KT11 

{ASCII MESSAGE TO IDENTIFY 
{DO INITIAL TEST SETUP 
{PERFORM 2 ITERATIONS 



TEST 



SETPRI 0PRIOO 



t//////////// BEGIN SUBTEST //////////// 

T8.1: 

TRAP CSBSUB 

{LOWER PRIORITY TO ALLOW INTERRUPTS 



JSR 


PC.SOFINIT 


bc ; 


3$ 


MOV 


R0.R1 


ERRDF 


ERRN0,:riERR,SFIM5G 



3$; 



hov 

TRAP 

iDO SOFT INIT OF CONTROLLER 

jBR IF SOn INIT - OK 

{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



OPRIOO.RO 
C$SPRI 



C*EPuF 
801 

SF If RR 
SFIMSG 



MOV 


4T8PK2.R4 


{WRITE 


CHARACTERISTICS PACKET 




JSR 


PC.WRTCHR 


{ISSUE 


WRITE CHARACTERISTICS 




RCS 


4* 


tBR. r 


' COMMAND ISSUED OK 




LRRHRD 


ERRNO.WRTMSti, SFIMSG 


{WRITE 


CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 

.WORD 


CfERHPD 
802 

WRTMSG 
SFIMSG 



4$t 








JSR 


PL.T8REST 




MOV 


M8PACKr.T,R4 


5$: 


BGNSEG 




10$: 


CLR 


FATFLG 




CLR 


INTRECV 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




BCS 


15$ 



{SET UP PACKET FOR COMMAND 

{GET \HE ADDRESS Of COMMANO PACKET 

j>*»>> ->>,.%>> BEGIN SEGMENT >>>>■>*>•»■*■>>* 

TRAP CSBSfcli 

jCLEAR FATAL ERROR FLAG 

{CLEAR INTERRUPT RECEIVED FLAG 

{SET THE PACKET ADDRESS 

;WAIT FCR SSR TO SET 

jBR IF CARR^r SET (GOOD RETURN) 



B 1 4 



CZTKEA TK25 TRT ENO FUNC Pi 

TEST 6: NON-TAPE MOTION COMMANDS 
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6132 
6136 



6137 
6138 

6139 



6140 
6141 
6145 



6146 

6147 
6146 
6149 
6150 
6151 
6152 
6156 



615/ 

6158 
6159 

6163 



6164 



6165 
6166 
616/ 



6166 
6169 

61/0 

6i n 

6172 



03 7056 
03 7060 
037060 
057062 
037064 
037066 
037070 
037074 
037074 
037076 
037076 
037100 
037102 
037106 
037110 
037110 
037112 
037114 
037116 
037120 
037124 
037130 
037134 
037136 
037142 
037144 
037146 
037146 
037150 
037152 
037154 
037156 
037156 
057162 
037164 
0371C4 
057166 
037170 
037172 
0371/4 
037174 
037174 



037176 
057176 
037176 

057200 

03 7204 
03.V06 
037212 



01OO01 

104455 
001443 
040014 
011520 
004737 017724 

104406 



15* j 



002172 



000000 

000200 
000100 

000100 



104410 
00O074 
005737 
001004 

104456 
001444 
040144 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
001445 
037562 
011520 



0O4 737 010354 
105405 

104456 
001446 
0O4643 

016204 



22*1 



25li 



301; 

r-5$s 



104405 



1O4403 

005 7 5/ 002170 

001402 

004737 017776 



59* j 



MOV 
ERRDF* 



JSR 

CKLOOP 



601s 



LNOSLB 



TST 
BtQ 

JSR 



R0.R1 
ERRN0,T8SSR,PKTSSR 



PC.FATCHK 



ESCAPE SEG 



TST INTRECV 

BNE 221 

ERRMRO ERRN0.T8NINT .PKTSSR 



MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


BIT 


♦0FL.R1 


BEQ 


251 


BIS 


♦0FL.R2 


CMP 


R2.R1 


BEQ 


301 


ERRMRO 


ERRNO.TaNB A, PKTSSR 



JS^ PC.CKRAM 

BCS 59$ 

ERRHRD ERRNO,PKTRAM,RAMERR 



ENOSEG 



f A TF I U 

60> 

PCCKOWiJP 





SEO 170 


iSAVE CONTENTS Of" TSSR 




iDFVICE FATAL SSR FAILED TO SET 




TRAP 


C»ERDF 


.WORD 


803 


.WORD 


T8SSR 


,WO«D 


PKTSSR 


j INC AND CHECK FOR MORE THAN 2Z> 


FRRORS 


jl OOP ON ERROR, IF FLAG SET 




TRAP 


CICLP1 


iBY-PASS SUBTEST IF FATAL ERROR 




TRAP 


CIESCAPE 


.WORD 


100001- . 


lOID AN INTERRUPT OCCUR ? 




iBRANCH IF* YES 




TRAP 


CfERHRD 


.WORD 


B04 


.uo«o 


TflNINT 


,WO«D 


PKTSSR 


iGET THE CONTENTS OF TSSR 





>EXPECTED CONTENTS Of TSSR 
lIS OfF-LIN£ BIT SET 7 
jBRANCH if not OFF-LINE 
iSET OFF-LINE IN EXPECTED DATA 



lOOCS EXPECTED MATCH RECEIVED 


? 


lOKAY IF MATCH 






iNBA NOT ZERO 








TRAP 


CIERHRO 




.WORD 


805 




.WORD 


T8NBA 




.WORD 


PKTSSR 


iCKCK RAM TO MEMORY 






iRAM OK GO ON 






:THfY DON' T MATCH 








TRAP 


CIERHRD 




.WORD 


806 




.WORD 


PKTRAM 




.WORD 


RAMERR 


!<<<<<<«<<<<<< ENO SEGMENT <<< 


</<<<<<<*< 


lOOOOIj 








TRAP 


CIESEG 



|\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\ \\ \ \ 

1. 10067 j 

TRAP ClESUU 



? 



|ANT FATAL ERROR 

iBRANCH IF NOT 

j TRY TO QRUP TH£ *MT 



WW 
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SEQ 171 



bW4 
bHb 

61 7 b 

e l n 

6178 
6180 

biei 

e>i82 

6183 



6184 
618b 



6186 
6187 

6i8a 

6189 
6190 
6194 
6195 



6196 
6197 
6198 
6199 
6203 



6204 

6205 
6206 
620 7 
6208 
6209 
62J0 
6211 
6212 
6213 
6217 



6218 
6219 



057212 
037212 
037212 

03 7214 
037214 
037220 
03722? 
037222 



03722*^ 
037230 
037232 
03 7234 
037254 
03 7236 
037240 
057242 
037244 
03 7244 
037250 
037254 
037256 
037256 
037260 
03 7262 
037264 
037266 
037266 
037272 
037276 
037276 
03 7302 
037306 
037512 
037316 
037320 
03 7322 
03 7322 
057524 
03 7326 
037330 
037552 
057532 
03/534 
037334 
037336 



104402 



012700 
104441 

104404 



004737 
105405 
010001 

104455 
00144 7 
003550 
011506 

012704 
004757 
103404 

104456 
001450 
004754 
011506 

004737 
012704 

005037 
052714 
010465 
004737 
103405 
010001 

104455 
001451 
040014 
011520 

104406 

104410 
000074 



TEST 8, SUBTEST 2 

CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
INITIALIZE COMMANO TO BE REJECTED 



OOOOCO 



BGNSUB 



SETPRI OPRIOO 



BGN5EG 



,//////////// BEGIN SUBTEST //////////// 

T8.2: 

TRAP CIBSUB 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV ♦PRIOO.RO 

TRAP C$SPRI 

)>>>>>>>>>>>> BEGIN SEGMENT >>»>»»>>>*>> 

TRAP CIBSEG 



016470 



03 7520 
010152 



3$ 



JSR 


PC. SOT INI T 


|C*0 SOFT INIT 0* CONTROLLER 




BCS 


31 


|BR IE SOFT INIT • OK 




MOV 


RO,Ri 


iSAVE CONTENTS Of TSSR 




ERRDF 


ERRNO.SFlfcfW.SFIMSG 


jOEVICE FATAL ERROR DURING INIT 








TRAP 


CIERl'/ 






.WORD 


807 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


♦T8PK2.R4 


lUfllTE CHARACTERISTICS PACKET 




JSR 


PC.WRTCHR 


, ISSUE WRITE CHARACTERISTICS 




BCS 


41 


jBR, IE COMMANO ISSUED OK 




ERRHRD 


ERRNO.WRTMSG, SFIMSG 


IWRITE CHARACTERISTIC FAILED 





040324 
037450 

002172 
007400 

177 7 76 
017060 



4»: 



TRAP 
.WORD 

.WORD 
.WORD 



CtERHRD 
808 

WRTMSG 
SFIMSG 





JSR 


PC, T8REST 




MOV 


0T8PACKET.R4 


51: 






10$: 


CLR 


INTRECV 




BIS 


♦R.M00E,(R4 ) 




MOV 


R4.TSD8CR5) 




JSR 


PC.CmkTSSR 




BCS 


15$ 




MOV 


RO Rl 




ERRDF 


ERRN0,T8SSRtPKTSSR 



jSET 
(GET 



UP PACKET FOR COMMANO 

THE ADDRESS OF COMMANO PACKET 



15$: CKl OOP 

ESCAPE SEG 



j CI EAR INTERRUPT RECEIVED FLAG 
iNON ZERO COMMAND M00€ BITS 
i SET THE PACKET AOORESS 
jWAIT FOR SSR TO SET 
I BR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 
lOEVICE FATAL SSR 



1 1 OOP ON ERROR, I» 



iBT PASS CHECKS IF 



FAILED TO SET 




TRAP 


CtERDf 


.WORD 


809 


.WORD 


T8SSR 


.WORD 


PKTSSR 


FLAG SET 




TRAP 


C I CLP I 


FATAL ERROR 




TRAP 


C$ESCAPt 


.WORD 


10000*-, 



D14 
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SEQ 17? 



6221 

6225 



6226 

622 7 
6228 
6229 
6230 
6231 
6232 
6236 



6237 
6238 
6239 
6243 



6244 



624S 
6246 



037340 
037344 
037346 
037346 
037350 
037352 
037354 
037356 
037562 
037366 
037372 
037374 
037400 
05 7402 
U 5 7404 
03 7404 
037406 
037410 
037412 
037414 
037414 
037420 
03 7422 
037422 
037424 
03 7426 
037430 
037432 
037432 
037432 

03 74 34 
03/434 
037434 



005737 
001004 

104456 
001452 
040144 
011520 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
001453 
037622 
011520 

0O4737 
103405 

104456 
001454 
0O464 3 
016204 



104405 



104403 



002172 



TST 


INTRECV 


lOIO AN INTERRUPT 


8NF 


221 


l BRANCH XF YES 


ERRHRD 


ERRNO.TONINT .PKTSSR 





OCCUR V 



000000 
100206 
000100 

000100 



22% \ 



25$; 



MOV 


TSSR(R5),R1 


MOV 


*SC!SSH?TSREJ,R2 


BIT 


♦OFL.Rl 


PEQ 


25$ 


BIS 


*0TL,R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRMRD 


ERRN0 I T62REJ,PKTS5R 



010354 



30$: 
35$; 



JSR PC.CKRAM 

BCS 59$ 

ERRHRD ERRNO , PK TRAM , RAMfcRR 



ENOSEC, 



59$: 



t NO SUB 



TRAP 


C$ERHRD 


.WORD 


810 


.WORD 


T8NINT 


.WORD 


PKTSSR 



iGET THE CONTENTS Of TSSR 

jEXPECTED CONTENTS OF TSSR 

iIS OFF-LINE BIT SET 7 

jBRANCH IF NOT OFF LINE 

»SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

jOKAY IF MATCH 

I COMMAND NOT REJECTED 

TRAP C$ERMRD 

.WORD 811 
.WORD T82REJ 
.WORD PKTSSR 

iCHECK RAM TO MfcMORY 

j RAM OK GO ON 

i THEY DON'T MATCH 

TRAP C$ERHRD 

.WORD 812 
.WORD PKTRAtt 
.WORD RAMF.RR 



)€<<<<<<<<<<<< 



ENO SEGMENT 
10000$: 

TRAP 



<■<<<<«, ■<<<<<< 



C$ESEG 



|\\\\\\\\\\\\N ENO SltHEST \ \\\\\\\\\\\ \ 

L 10070 J 

TRAP C$LSUB 
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SF.Q 173 



6248 



6249 
6250 
6251 

6252 

6253 
6255 
6257 
6258 
6259 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 
62 70 
62 71 
6273 
6275 
6276 
627 7 
62/8 
6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
629 7 
6298 
6299 
6300 
6301 
6302 
6503 
b304 
6305 



037436 
037436 
037440 



03 7442 
037450 
037450 
037452 
037454 
037456 

037460 
037460 
037462 
037464 
03/466 

037472 



037512 
037520 
037520 
037522 
037524 
037526 

037530 
037530 
037532 
037534 
037536 

037542 



037562 
037622 
03/703 
C37/33 
040014 
0400 70 
040144 
040222 
040272 



104432 
000770 



EXIT 



TST 



I ALL DONE THIS TEST 



100204 
037460 
000000 
000010 



037472 
OOOOOO 
000016 
OOOOOO OOOOOO 



100204 
037530 
OOOOOO 
0000 10 



037542 
OOOOOO 
000016 
OOOOOO OOOOOO 



111 
111 
107 
107 
103 
103 
105 
111 
116 



116 
116 
105 
105 
157 
15/ 
170 
156 
157 



111 
111 
124 
124 
156 
15b 
160 
145 
156 



i * 



» LOCAL STORAGE FOR THIS TEST 



I 



.BLKO 10-< . -TUV2A£7> 



T8PACKET: 



T8DATA: 



.WORD 100204 

.WORD T8DATA 

. WORD 

.WORD 6. 



.WORD T8RFR 

.WORD 

.WORD 14. 

,WORD 0,0 



T8BFA: ,BLKW 8 



T8PK2j 



,BLKB 10-<.-TUV2A£7> 



TQDTAj 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 

.WORD 



100204 

T8DTA 



8. 



T8BF2 


14. 
0,0 



T8BF2: ,BLKW 8. 



i LOCAL 
J 

T8NBA: 
T82REJ 
T63REJ 
T 84 RE J 
T8SSR: 
T8SR2: 
T8NINT 
T8TS8A 
TST8ID 



TRAP 
. WORD 



ciF.xn 

L10066-, 



jCOMMANO PACKET FOR TEST 

jWRITE CHAR COMMAND, WITH IE, (\CK 

I ADDRESS OF CHARACTERISTICS BLOCK 

i STARTING VALUE OF BLOCK SIZE 

jCHARACTERISTICS DATA BLOCK 
lAODRESS OF MESSAGE BUFFER 

ILENGTH OF MESSAGE BUFFER 



iMESSAGE BUFFER 



iCOMMANO PACKET FOR TEST 

jWRITE CHAR COMMANO. WITH IE. ACK 

lADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 

jCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFFR 

(LENGTH OF MESSAGE BUFFER 



j MESSAGE BUFFER 



TEXT MESSAGES FOR TEST 



.ASCI/ 'INITIALIZE Command Not Accepted' 

.ASCIZ 'INITIALIZE Not Rejected With Non Zero Mod* Field' 

.ASCIZ 'GET STATUS Not Accepted' 

.ASCIZ 'GET STATUS Not Rejected With Non Zero Mod* ► ield' 

.ASCIZ 'Conttnte of TSSR Incorrect After INITIALIZE 

.ASCIZ 'Content, of TSSR Incorrtct After GET STAlUS' 

.ASCIZ 'Expected Interrupt Not Received On INITIALIZE' 

.ASCIZ 'Incorrect TSBA Address After INITIALIZE' 

.ASCIZ 'Non -Tape Motion Commands' 

.EVEN 



F'1.4 
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SEQ 174 



6307 
6308 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6335 
6354 
6335 
6336 
6337 
6338 
6339 
6540 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
6349 
6350 



040324 
040324 
040330 
040334 
040340 
040342 
040344 
040346 
040350 
040352 
040354 
040356 
040360 
040364 



040366 
040366 
040372 
040376 
040402 
040404 
040406 
040410 
040412 
040414 
040416 
040420 
040422 
040426 
0404 30 
040430 
040430 



012701 
012721 
005021 
005021 
005021 
005021 
005021 
005021 
005021 
005011 
005037 
000207 



012701 
012721 
005021 
005021 
005021 
005021 
005021 
005021 
005021 
005011 
005037 
000207 



104401 



{ROUTINE TO 
; INITIALIZE 
i 
I 



RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUE 
COMMAND 



T8REST: 



037450 
100213 



037472 



SAVREG 

MOV 0T8PACKET.R1 

MOV $100213, (Rl)* 

CLR (Ml) 

CLR (Rl) 

CLR (Rl) 

CLR (Rl) 

CLR (Rl) 

CLR (Rl) 

CLR (Rl) 

CLR (Rl) 

CLR T8BFR 

RTS PC 



{SAVE THE REGISTERS 

<START OF THE PACKET 

i INITIALIZE WITH ACK . IE 

I ADDRESS OF CHAR DATA BLOCK 

lEXTENOED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

j ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



(CLEAR 1ST 
j RE TURN 



LOC IN MESSAGE BUFFER 



{ROUTINE TO 
{GET 

J 
t - 



RESTORE 
COMMAND 



COMMAND PACKET TO START-UP (DEFAULT) VALUES 



T0RT2: 



037450 
100217 



037472 



SAVREG 

MOV 

MOV 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

RTS 

ENDTST 



♦T8PACKET t Rl 
♦ 100217, (Rl)» 

(Rl)* 
(Rl)* 

(Rl)* 
( R 1 ) ♦ 
(Rl)* 
(Rl)* 
(Rl )* 
(Rl) 
T8UFM 
PC 



{SAVE THE REGISTERS 

{START OF THE PACKET 

»GET STATUS WITH ACK, IE 

{ADDRESS Of" CHAR DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS Of MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



•CUMH 1UT 
iRETURN 



LUC IN MEbhAGL 3'JTFER 



LlOQbbt 



TRAP 



C*tTi>T 



CZTKEA TK25 KR| FND F UNC 
TEST 9; DMA MEMORY ADDR 



ESSlNG 
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SEQ 175 



C353 
6354 
6355 
6356 
6357 
6353 
6359 
6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 

6380 
6381 
6382 
6387 
6388 
638 r » 
6390 
6391 



.SBTTL TEST 9j DMA ntMORY ADDRESSING 



TEST 1 

TEST DESCRIPTION 

This test verifies that the controller can properly address and 
access all available CPU memory (other than that occupied by the 
diagnostic and diagnostic supervisor code) for both reading ('DAT I) 
and writing CDATO). Verified are the LSI-11 Bus drivers for all 
available address lines. Up to this point only 16 bits have been 
used for DMA transfers. 

TEST STEPS 

REPEAT FROM 1 TO L.OOPCNT 



0404 32 
040432 
040432 
040436 
040444 
040450 
0404 54 
040460 
040466 



BEGIN 

Do Surest 1 

Do Subtest 2 

Do Subtest 3 

Do Subtest 4 

END 



BGNTST 



Verify GET STATUS selected locations 
Verify message packets selected locations 
Verify Characteristic data selected loc •» . 
Verify NXM to selected Invalid addresses 



ons 



00503 7 
012737 
005037 
012700 
004737 
012737 



002170 
005672 
003100 
042100 
017232 
000002 



002146 



002164 



CLR 


FATFLC 


MOV 


OEPRT1.EPRTSW 


CLR 


KTFLG 


MOV 


0TST9ID.RO 


JSR 


PC.TSTSETUP 


MOV 


O2..LO0PCNT 


T9L00P : 





T9; : 
I CLEAR FATAL ERROR FLAG 
iSET UP ERROR MESSAGE SUTTCH 

jHOLD OFF KT11 

lASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
, PERFORM 2 ITERATIONS 

jLOOP ON TEST LABEL 



CZTKEA 
TEST 9: 

6593 

6394 
6395 
6396 
639 7 
6398 
6399 
6400 
6401 
640? 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6411 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 



64 ^ 
6424 
6425 
6426 
6427 
6428 
6429 
6430 
6431 
6432 
6433 



64 34 
64 35 
64 36 
6437 
6438 
6439 
6440 
6441 
6442 
6443 



TK25 FRT 
SUBTEST 



040466 
040466 
"M0466 



040470 
040474 



040500 
O405O4 
040506 
040506 
040510 
040510 
040512 
040514 
0405U 



040520 
040520 
040524 
040530 
040534 
040540 
040544 
040560 



END f-'VNC 01 
1: GET STATUS 
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SEQ 176 



.SBTTL TEST 9; SUBTEST li GET STATUS SELECTED LOCATIONS 

TEST 9: SUBTEST 1; 

SUBTEST DESCRIPTION: 

Th i s subtest verifies the controller can fetch a get status 

command from all available memory location*. 

Two word blocks art tested one at a time by first setting 

all aval labia memory to a background pattern of 125252. 

A Gat Statu* command la than e*ecuted to various addresses In 

each aval labia mamory 4k word block. The varioua addresses 

are determined by floating a 1 then a through the address bits. 



TEST STEPS: 

BEGIN 

fill Memory with 

Writ 

Do a WRITE CHARACTERISTICS to setup a message buffer 



background pattern of 125252 
to TSSR to soft initialize 



ENO 



REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Get a valid modulo -4 test address 
Do a GET STATUS command from the test address 
ENO 



104402 



012700 
004737 



004737 
103405 

010001 

104455 
001605 
003550 
011506 



U12704 
004 73 7 
005037 
010465 
004737 

103405 



125252 
020216 



016470 



BGNSUB 



jFill Memory with background pattern 
MOV 0125252, RO 
JSR PC.FILLMEM 

iWrite to TSSR to soft initialize 
JSR PC.SOFINIT 
BC5 !5f 
NEXT.ERRNO 
MOV R0.R1 
ERRDF ERRNO, SF1ERR , SKIMSG 



t//////////// BEGIN SUBTEST ////////// 

T9.1: 

TRAP CfBSUB 

of 125252 

{BACKGROUND DATA 

iFILI. MEMORY WITH BACKGROUND DATA 



iDO SOFT INIT OF CONTROLLER 
jBR IF SOFT INIT - OK 

I SAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.WORD 901 

.WORD SFItRR 

.WORD SFIMSG 



041670 
04 3436 
003102 

17 7 7 76 
017060 



iDo a WRITE CHARACTI RISTICS to setup a message buffer 
15$: 

MOV *T9PrtCKET,R4 

JSR PC.T9SWRT 

CLR KIENABLE 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 17$ 

UCS 20$ 



jGET THE ADDRESS OF COMMAND PACKET 

iRESTORE PACKET TO STARTING VALUES 

j TURN OFF KT 11 

I SET THE PACKET ADDRESS 

IWAIT FOR SSR to SET 



I BR IF SSR SET IN CHKTSSR 



114 



C7TKEA 


TK25 F-RT 


END FUNC *1 


TEST 9: 


SUBTEST 


It GET 


STATUS 


(.444 


040562 


010001 




6445 


040564 






6446 


040564 








040564 


104455 






040566 


001606 






040570 


042202 






040572 


011520 




644 7 








6448 








6449 








6450 








6451 


040574 


005037 


002170 


6452 


040600 


005037 


041740 


6453 


040604 


012702 


041744 


6454 


040610 






64 55 


040610 


005037 


003102 


6456 


040614 


012201 




6457 


040616 


005000 




6458 


040620 


u05737 


041740 


6459 


040624 


001407 




6460 


040626 


016200 


177776 


6461 


040632 


042700 


177774 


6462 


040636 


012737 


OOOOOl 


6463 


040644 


0O4737 


042746 


6464 


040650 


103034 




6465 


040652 


013704 


041734 


6466 


040656 


013703 


041732 


6467 


040662 


0O4737 


043504 


6468 


040666 


042703 


177774 


6469 


040672 


050304 




64 70 


040674 


004737 


020070 


64 71 


040700 


010465 


177776 


64 72 


040704 


004737 


017060 


64 73 


040710 






64 74 


040724 


103405 




64 75 


040726 


010001 




6476 


040730 






6477 


040730 








040730 


104455 






040 732 


001607 






040734 


042126 






040736 


011550 




6478 


040740 








040740 


104406 




64 79 


040742 






6480 


040742 






6481 


040 752 


020227 


042076 


6482 


040756 


103002 




6483 


040760 


000137 


040610 


6484 


040764 


005737 


041740 


6485 


0407 70 


003012 




6486 


040772 


005737 


003100 


6487 


040776 


001407 




6488 


041000 


012737 


OOOOOl 


6489 


041006 


012702 


041744 


6490 


041012 


000137 


040610 


6491 


041016 


QQ473Y 


020070 
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SEU 177 



17$: 



MOV R0.R1 jSAVE 

NEXT.ERRNO 

ERRDF ERRNO » T9WRTSSR , PKTSSR i DEVICE 



CONTENTS OF TSSR 




E FATAL SSR FAILED TO SET 




TRAP 


CIERDF 


.WORD 


902 


.WORD 


T9WRTSSR 


.WORD 


PKTSSR 



tVerify a Get Statu* can be Fetched from ench otidrenn 
{Get a valid modulo-4 teat add) 
{Do a GET STATUS command from 



20$ 



T91L00P; 



Iress 

the teat address 



003102 



25$ 



32$ 



041740 



CLR 
CLR 
MOV 

CLR 

MOV 

CLR 

TST 

BEQ 

MOV 

BIC 

MOV 

JSR 

BCC 

MOV 

MOV 

JSR 

BIC 

BIS 

JSR 

MOV 

JSR 

FORCERROR 

BCS 40$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T9GETSSR.PKTGETS jDEVICt FATAL SSR 



FATFLG 

T9KT 

0T96LK.R2 

KTENABLF 

(R2)»,R1 

RO 

T9KT 

25$ 

~2(R2).R0 

«tC<A1716>,R0 
*1,KTENA8LE 
PC.T9C0NVERT 
65$ 

T9L0ADD.R4 
T9HIADD.R3 
PC.T9SETGET 
*tC<A1716>.R3 
R3.R4 
PC.KTOFF 
R4,TSDB(R5) 
PC.CHKTSSR 
32$ 



CLE. R FATAL ERROR FLAG 
ilST ABOVE 28K SWITCH 
POINT TO TEST PATTERN TABLE 

TURN OFF ABOVE 28K TEST FLAG 

GET TEST PATTERN ADDRESS 

ASSUME NO TEST ABOVE 28K 

TEST ABOVE 28K THIS TIME? 

BR IF NO 

GET TEST PATTERN AGAIN 

SAVE 18 BIT ADDRESS ONLY 

TURN ON ABOVE 26K TEST FLAG 

C0NVER1 TEST PATTERN TO TEST ADDRESS 

BR IF INVALID PACKET ADDRESS 

COPY CURRENT PACKET LOU ADDRESS 

COPY CURRENT PACKET HIGH ADORESS 

SETUP CURRENT PACKET TO GET STATUS 

SAVE ADORESS BITS 17*16 

SETUP 18 BIT PACKET ADDRESS 

TURN OFF KT-11 

SET THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR TO SET 



BR 



SAVE 



IF SSR SET 

CONTENTS 



40$; 


CKL.OOP 




65$: 








FORCEXIT >i 




CMP 


R2.GT9THE 




BHIS 


70$ 




JMP 


T91L00P 


70$: 


TST 


T9KT 




BGT 


80$ 




TST 


KTf-LG 




BbQ 


80$ 




MOV 


#1, T9KT 




MOV 


0T9BLK.R2 




JMP 


T9U.00P 


80$: 


JSR 


PC.KTOKF 



j LOOP ON ERROR, IF FLAG 



IN CHKTSSR 
OF TSSP 



FAILED 10 SE 
TRAP 
.WORD 
.WORD 
.UiORD 
SET 
TRAP 



Clfc'RDF 

903 

T9GE ISSH 

PKTGETS 

C$CLP1 



4 ADDRESS 
28K TESTING 



TOO? 



i DONE ALL TSTBLK TEST PATTERNS? 
iBR IF YES 
ANOTHER MODULO- 
j DONE ABOVE 
l BR IF YES 

i ANY MEMORY ABOVE 28K ON SYSTEM? 
j BR IF NO 
T SUITCH 

iRESFT TEST PATTERN TABLE 
lUU ABUVE .'HK TESTING 
I TURN OFF KTli 



DO 



iSE 



CZTKEA TK25 FRT 
TEST 9: SUBTEST 



6492 



6495 
6494 
649 r > 
6496 
6497 



041022 
041022 
041022 
041024 
041030 
041032 
041036 



END KUNC 01 
1} GET STATUS 



104403 
005737 
001402 
004737 
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002170 
017776 



100$: 



TST 


FATFLG 


BEQ 


100? 


JSR 


PC.CKDROP 



SEQ 178 



,\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L10072! 

TRAP C$ESUB 
jANY FATAL ERRORS ? 
I BRANCH IF NOT 
j TRY TO DROP THE UNIT 



K 1 4 
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SEQ 179 



6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 
650/ 
6508 
6509 
6510 
6511 
6512 
6515 
6514 
6515 
b516 
6517 
6518 
6519 
6520 
6521 
6522 
652? 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 



6533 

6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 



6544 

654 5 
6546 
654 / 
6548 
6549 



041036 
041036 
041036 



041040 
041044 



041050 
041054 
041056 
041056 
041060 
041060 
041062 
041064 
041066 



0410/0 
0410/0 
0410/4 
041100 



.SBTTL TEST 9s SUBTEST 2; MESSAGE PACKETS TO SELECTED LOCATIONS 

TEST 9: SUJTEST 2: 

SUBTEST DESCRIPTION: 

This subtest verifies the controller can deposit message packets 

to all available memory locations, 

First all available memory \s set to a background pattern 

of 125252. 

Ur I te Characteristics commands are then executed with message 

buffer addresses set to various addresses in each available 

memory location. 

The various addresses are determined by floating a 1 then a 

through the address bits, 

TEST STEPS j 

BEGIN 

fill Memory with background pattern of 125252 

Urite to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer to compare 

REPEAT FOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Get a valid modulo -4 test address 

Set the packet message buffer to the TESi ADDRESS 

Do a WRITE CHARACTERISTICS 

Restore the test message buffer to background pattern 
END 



END 



, -- 



BGNSUB 



104402 



012700 
004737 



004/37 
103405 

010001 

104455 
001610 
003550 
011506 



012704 
004/37 
004737 



j//////////// BEGIN SUBTEST ////////// 

T9,2: 

TRAP CSBSUB 



125252 
020216 



016470 



jFill Memory with background pattern of 125252 



MOV 0125252, RO 
JSR PC.FILLMEM 

jWrite to TSSR to soft initialize 
JSR PC.SOFINIT 
BCS 151 
NEXT.LRRNO 
MOV R0.R1 
ERRDF ERRNO, SFIERR , SFIMSG 



0416/0 
04 34 36 
020070 



{BACKGROUND DATA 

j FILL MEMORY WITH BACKHRQUNO DATA 

;D0 SOFT INIT OF CONTROLLER 
jBR IF SOFT INIT - OK 

jSAVF. CONTENTS OF TSSR 

jDEVICE FATAL ERROR DURING INIT 

TRAP CJERDF 

. WORD 904 

.WORD SFIE.RR 

.WORD SFIMSG 

j Do a URITE CHARACTERISTICS to setup a message buffer to compare 

15$: 

MOV AJ9PACKET # R4 , GE T THE ADDRESS Of COMMAND PACKt T 

JSR PC, T9SWRT ; 5M PACKET TO WRITE CHARACTERISTICS 

JSR PC.KTOFF i TURN OFF KT-11 
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SEQ 180 



6550 


041104 


010465 


177776 


6551 


041110 


004 737 


017060 


6552 


041114 






6555 


041130 


103405 




6554 


041132 


010001 




6555 


041134 






6556 


041134 








041134 


104455 






041136 


001611 






041140 


042202 






041142 


011520 




6557 








6558 








655S 








6560 








6561 


041144 


005037 


002170 


6562 


041150 


012703 


041744 


6563 


041154 






6564 


041154 


012301 




6565 


041156 


010100 




6566 


041160 


042700 


177774 


6567 


041164 


042 701 


OOOOOl 


6568 


041170 


004737 


043140 


6569 


041174 


103402 




6570 


041176 


000137 


041274 


6571 


041202 


012704 


041670 


6572 


041206 


004737 


043436 


6573 


041212 


013737 


041734 041700 


6574 


041220 


013737 


041732 041702 


6575 


041226 


0O4737 


020070 


6576 


041232 


010465 


177776 


6577 


041236 


004737 


017060 


65 78 


041242 






6579 


041256 


103405 




6580 


041260 


01OO01 




6581 


041262 






6582 


041262 








041262 


104455 






041264 


001612 






041266 


042202 






041270 


011520 




6585 


041272 








041272 


104406 




6584 


041274 






6585 


041274 






6586 


041304 


02032 7 


C'2076 


6587 


041310 


103002 




6588 


041312 


000137 


04115-1 


6589 


041316 


004737 


020070 


6590 


041322 
041522 








041322 


104403 




6591 


04 1 324 


005737 


002170 


6592 


041330 


001402 




6593 


041332 


004737 


017776 


6594 


041336 







17$: 



MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 17$ 

BCS 20* 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T9WRTSSR, PKTSSR 



i SET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 

jBR IF SSR SET IN CHKTSSR 
I SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


905 


.WORD 


T9WRTSSR 


.WORD 


PKTSSR 



{Get a valid modulo-4 test odd 
{Set the packet message buffer 
sDo a WRITE CHARACTERISTICS 



20$: 
T92L00P: 



CLR 
MOV 



FATFLG 
«T96LK,R3 



MOV CR3)*,R1 

MOV Rl.RO 

BIC $177774, RO 

BIC el.Rl 

JSR PC.T9CT2 

3CS 251 

JMP 1501 

25$: MOV «T9PACKET,R4 

JSR PC.T95WRT 

MOV T9LOADD.T90ATA 

MOV T9HIADD.T9DATA 

JSR PC.KTOFF 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 
FORCERROR 32$ 

BCS 50$ 

MOV R0.R1 
NEXT.ERRNO 

32$: ERRDF ERRNO, T9WRTSSR 



ress 
to the test address 

l CLEAR FATAL ERROR FLAG 
jPOINT TO TEST PATTERN TABLE 

,GET TEST PATTERN ADDRESS 
{GET ADDRESS ALL "18 BITS" 
{LEAVE ONLY A17 AND A16 
{ALWAYS ON A WORD BOUNORY 
{CONVERT TEST PATTERN TO TEST ADDRESS 
j BR IF VALID MESSAGE BUFFER ADDRESS 
jGET ANOTHER TEST PATTERN TO TRY 
{SET THE COHMANO PACKET ADDRESS 
{SETUP T9PACKET TO WRITE CHAR. 
{SETUP LOW ORDER MESSAGE BUFFER ADD. 
♦2 {SETUP HIGH ORDER MESSAGE BUFFER ADD. 
{TURN OFF KT-11 

;SET THE PACKET ADDRF.SS TO EXECUTE 
{WAIT FOR SSR TO SET 



50$: 


CKLOOP 




150$: 








FORCEXIT li 




CMP 


R3.0T<*TBE 




BHIS 


160$ 




JMP 


T92L00P 


160$: 


JSR 
ENDSUB 


PC.KTOFF 




rsT 


KATFLG 




BEU 


1801 




JSR 


PC.CKDROP 



160$ 



ittO*i 



j BR IF SSR SET 
{SAVE CONTENTS 

.PKTSSR {DEVICE FATAL ! 



{LOOP ON ERROR, 



jDONE ALL TS1 
j BR IF YES 
jDQ ANOTHER MODULO- A ADDRESS 
{TURN OFF KT11 
j\\\\\\\\\\\\\ END SUBTEST 

L10073: 

TRAP 
{ANY FATAL ERRORS ? 
{BRANCH IF HQ1 
{TRY TO DROP THE UNIT 



IN 


CHKTSSR 




OF 
SR 


TSSR 

FAILED TO SET 






TRAP 


CIERDF" 




.WORD 


906 




.WORD 


T9WRTSSR 




.WORD 


PKTSSR 


IF 


' FLAG SET 






TRAP 


C$CLP1 


LK 


TEST PATTERNS 


^ 



C*tiiUtt 



CZTKEA TK25 FRT END TUNC 01 MACRO M1200 20-APR-34 08:12 
TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 



M14 
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SEQ 181 



65% 
6597 
6598 
6599 
6600 
6601 
660 ( ? 
6605 
6604 
6605 
6606 
660/ 
6608 
6609 
6610 
6611 
661? 

66 1 3 
6614 
6615 
6616 
6617 
»>B18 
6(>1 ( # 
6620 
66? 1 
6622 
6623 
6624 
6625 
6626 

662 1 
6628 
6629 



6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6638 
6639 
6640 



6641 
6642 

664 3 
6644 

6645 
6646 



041336 
041336 
041336 



041340 
041344 



041350 
041354 
041356 
041356 
041360 
041360 
04 1 36? 
041364 
041366 



0413/0 
0413/4 
041400 
041404 



104402 



012700 
004737 



00473 7 
103405 

010001 

104455 
001613 
003550 
011506 



00503/ 
00503/ 
012/03 



125252 
020216 



016470 



0021/0 
041 /40 
041744 



♦SBTTL TEST 9j SUBTEST 3; CHARACTERISTIC DATA SELECTED LOCATIONS 



f ♦ 



f TEST 9: SUBTEST 3: 
; SUBTEST DESCRIPTION; 



This subtest verifies the controller con fetch a 

Write Characteristics data 

memory locations, 

First all available memory 

pattern of 125252. 

Then Write Characteristics 

characteristic data blocks 



block from all available 
is set to a background 



commands are executed with 
at various memory addresses. 

The various memory addresses are determined by floating 

a 1 then a through the address bits. 



TEST STEPS: 

BEGIN 

Fill Memory with background pattern of 125252 
Write to TSSR to soft initialise 

REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Get a valid test address 

Set the test packet characteristics data pointer to the 

test address. 
Store expected characteristic data in test address block 
Do a WRITE CHARACTERISTIC command 



END 



END 



BGNSUB 



I //////////// BEGIN SUBTEST ////////// 

T9.3; 

TRAP CSBSUB 



jFill Memory with background pattern of 125252 

MOV 0125252.RO {BACKGROUND DATA 

JSR PC.FTtlMFM jFILL MEMORY WIT 



{Write to TSSR to soft initialize 
JSR MC.SOFTNIT 
BCS 20$ 
NEXI .LRRNO 
MOV R0.R1 
ERRDF ERRNO , 5F T ERR , SFIMSG 



FILL MEMORY WITH BACKGROUND DATA 



tOC SOFT INIT OF CONTROLLER 
|BR IF SOFT INIT - OK 



jGet a valid test address 
20$: CI R rATFLG 
CLR T9KT 
MOV 0T9BLK,R3 
T93L00P} 



{SAVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 



iCLEAR FATAL ERROR FLAG 
X TEST ABOVE 28K SWITCH 
{POINT TO TEST PATTERN TABLE 



C$ERDF 
907 

SFIERR 
SFIMSG 



CZTKEA TK25 FRT END FUNC <H MACRO M1200 20-APR-84 08:12 

TEST 9; SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 



N14 

PAGE 120-1 



SEQ 182 



664 7 
6646 
6649 
6650 
6651 
6652 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
66 7r 
6673 
6674 



6675 

66 76 
6677 
66 78 
6679 
6680 
6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 



6689 
6690 
6691 
6692 
6693 
6694 
b695 
6696 



041404 
0U41O 
041412 
041414 
041420 
041424 
041430 
041432 
041436 
041442 
041450 
041454 
041456 

041462 
041466 
0414 72 
041500 
041506 

041512 
041516 
041522 
041526 
041542 
041544 
041546 
041546 
041546 
041550 
041552 
041554 
041556 
041556 
041560 
041560 
041564 
041566 
041572 
041576 
041600 
041604 
041606 
041614 
041620 
041624 
041630 
041630 
041630 
041632 
041636 
041640 
041644 
041644 
041650 
041652 
041656 



005037 
012301 
010100 
042700 
042701 
005737 
001407 
016300 
042700 
012737 
004 77 7 
103402 
000137 

012704 
004737 
013764 
013764 
004737 

004737 
010465 
004737 

103405 
010001 



104455 
001614 
042202 
011520 

104406 

020327 
103002 
0OO137 
005737 
003012 
005737 
001407 
012737 
012703 
00013/ 
004737 



104403 
00573/ 
001402 
004737 

004 73/ 
103002 
C0O137 



003102 



177774 
000003 
041740 

177776 
177774 
O00001 
042746 

041560 

041670 
043436 
041734 
041732 
043546 

020070 
1777/6 
017060 



003102 



000002 
000004 



CLR KTENABLE 

MOV (R3)*,R1 

MOV Rl.RO 

BIC 0177774, RO 

BIC 03, Rl 

TST T9KT 

BEU 25$ 

MOV -2CR3),R0 

BIC 0!-C<Al/lo>,RO 

MOV 01, KTENABLE 

25*: JSR PC.T9C0NVERT 

BCS 30$ 

JMP 60$ 

{Set the test packet characteristics dat 

30$: MOV 0T9PACKET.R4 

JSR PC.T9SWRT 

MOV T9L0ADD,PKL0W(R4) 

MOV T9HIADD.PKHICR4) 

JSR PC T9CHAR 

{Do a WRITE CHARACTERISTIC command 

JSR PC, K TOFF 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 32$ 

BCS 40$ 

MOV R0.R1 

NEXT.ERRNO 

32$: ERRDF ERRNO, T9WRTSSR.PKTSSR 



042076 

041404 
041740 

003100 

OOOOOl 041740 
041744 
041404 
020070 



002170 
017776 
01/200 
040466 



40$: 


CKLOOP 




60$: 








CMP 


R3.0T9TUE 




BHIS 


65$ 




JMP 


T93L00P 


65$: 


TSf 


T9Kf 




BGi 


70$ 




tst 


KTFLG 




BEQ 


70$ 




MOV 


41.T9KT 




MOV 


0T96LK.R3 




JMP 


T93L00P 


70$: 


JSR 
ENDSUB 


PC. K TOFF 




TST 


FATFL G 




BEQ 


75$ 




JSR 


PC , CKDROP 


75$: 






100$: 


JSR 


PC.TSTLOOP 




BCC 


105$ 




JMP 


T9L00P 



TURN OFF ABOVE 28K TEST FLAG 
GET TEST PATTERN ADDRESS 
GET ADDRESS ALL "18 BITS" 
LEAVE ONLY A17 AND A16 
GE^ rid OF A17 AND A16 
TEST ABOVE 28K THIS TIME? 
BR IF NO 

GET TEST PATTERN AGAIN 
SAVE 18 BIT ADDRESS ONLY 
TURN ON ABOVE 28K TEST FLAG 
CONVERT TEST PATTERN TO TEST ADDRESS 
Bfl IF VALID TEST ADDRESS 
GET NEXT TEST PATTERN 
a pointer to the test address 
GET THE ADDRESS OF COMMAND PACKET 
RESTORE PACKET TO STARTING VALUES 
STORE CHAR. DATA PTR LOW ADDRESS 
STORE CHAR. DATA PTR HIGH ADDRESS 
STORE EXPECTED DATA IN DATA BLOCK 

TURN OFF KT 11 

SET THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR TO SET 



BR IF SSR SET IN CHKTSSR 
SAVE. CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

j LOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERDF 
908 

T9WRTSSR 
PKTSSR 

C$CLP1 



105* 



{DONE ALL TSTBLK TEST PATTERNS? 

;BR IF YES 
tDO ANOTHER MODULO- 4 ADDRESS 

{DONE ABOVE 28K TESTING TOO? 

j BR IF YES 

j ANY MEMORY ABOVE 28K ON SYSTEM? 

iBR IF NO 
jSET SWITCH 

jRcSET TEST PATTERN TABLE 
{DO ABOVE 28K TESTING 

{TURN OFF KTU 

j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 

L 10074: 

TRAP C$ESUB 

{ AN> FATAL ERRORS ? 

iBRANC.H IF NOT 

{TRY TO DROP THE UNIT 

; SHOULD WE DO ITERATIONS? 

;BR IF NO 

;LOOP UNTIL ITERATION COUNT DUNE 



C/TKEA 1 


rK25 FRT 


END HI 


TEST 9 : 


SUBTEST 


3: CHA 


6697 


041656 


004737 


6696 


041662 






041662 


104432 




041664 


001724 


6699 






6 700 






6701 






6 702 






6 703 






6704 






6706 


041666 




6 708 


041670 




6 709 


041670 


100004 


67?.0 


041672 


041700 


67U 


041674 


000000 


6*i2 


041676 


000010 


6713 






6714 


041700 




6715 


041700 


041712 


6716 


041702 


000000 


6717 


041704 


0OO016 


6716 


04 1 706 


000000 


6719 






6 720 


041712 




6721 






6722 


041732 


oooooo 


6723 


041734 


oooooo 


6724 


041736 


oooooo 


6/25 


041740 


oooooo 


6 726 


041742 


oooooo 


6727 






6728 






6729 






6730 






6 Ml 






6 7 32 


041744 


000001 


6733 


041746 


0O0002 


67J4 


041750 


000003 


6735 


041752 


0O0005 


6736 


041/54 


000006 


6737 


041756 


000007 


6736 


041760 


000011 


6739 


041762 


000012 


6740 


041764 


000013 


6 741 


041766 


000021 


6/42 


041770 


000022 


6743 


041772 


000023 


6 744 


041774 


000041 


6745 


04 17 76 


0O0042 


6 746 


042000 


000043 


6747 


042002 


0OO101 


6746 


0420O4 


0OO102 


6 749 


042006 


000103 


6/50 


042010 


OOO201 


6751 


042012 


0O0202 


6 752 


042014 


00020 5 


6/t>5 


04*01fc 


000401 



♦1 MACRO M1200 20-APR M 00il2 

CHARACTERISTIC DATA SELECTED LOCATIONS 
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SEQ 183 



020070 



JSR 
EXIT 



PC, K TOFF' 



I TURN OFF MEMORY MANAGEMENT 

lALl DONE THIS TEST 

TRAP 
.WORD 



ClfcXlT 
L10071 



jLOCAL STORAGE FOR THIS TEST 



T9PACKETi 



.BLKB 10 < , TUV2A67* 



T90ATA: 



OOOOOO 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 



100004 
r^OATA 


a. 



T98FR 
o 

14. 
0,0 



T96FR, .BLKW a. 

T9HIA00: .WORD 

T9L0AOO: .WORD 

T9RAR6* .WORD 

T9KT S .WORD 

T94TST. .WORD 



TABLE Of ADORE LSES 



T96LK 



.WORD 


000001 


.WORO 


000002 


.WORD 


000005 


.WORD 


000005 


.WORD 


000006 


.WORD 


000007 


.WORO 


000011 


.WORD 


000012 


.WORD 


00001? 


.WORO 


000021 


.WORD 


000022 


.WORO 


000023 


.WORO 


000041 


.WORO 


000042 


.WORD 


00004 3 


.WORD 


000101 


.WORD 


000102 


.WORD 


000105 


.WORO 


000201 


.WORD 


000202 


.WORD 


000203 


*WORD 


QQQ4QL 



iCOMMANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COWHAND, WITH AC»< 

I ADDRESS OT CHARACTERISTICS BLOCK 

i STARTING VALUE OT BLOCK SIZE 

iCHARACTERISTlCS DATA BLOCK 

lLOW ADDRESS OF MESSAGE BUFFER 
IHIGH ORDER Of MESSAGE BUFFER 
iLENGTH Of MESSAGE BUFFER 



iMESSAGE BUFFER 

iHIGH AOORESS 
lLOW AOORESS 

t ADDRESS IN PAR FORMAT 

i TEST ABOVE 20K SWITCH 
I ADDRESS TEST 81 T 



HIW, ^tH? ^Cmc^ISTI? rt S8VA M ^L gcT^-Lm??o85 ! 



Cl r ^ 



ed* 



6 754 

6755 
6 756 
6757 
6758 
67 59 
6 76C 
676i 
676? 
6763 
6 764 
6765 
6766 
6767 
6768 
6 769 
6 7 70 
67/1 
6772 
6773 
6 7 74 
6 7 75 
6 7 76 
6/7 7 
677ft 
67 79 
6760 
6781 
6 78? 
6783 
6784 
6785 
6 786 
6787 
6/8tt 
6789 

6 7<K) 
6791 



042020 
04202? 
042024 
042026 
042030 
042032 
042034 
042036 
V42040 
042042 
042044 
042046 
042050 
042052 
042054 
04.-VS6 
04i. 0* •> 
042^2 
0420t>4 
042066 
042070 
0420/2 
0420 74 
042076 



042100 
042126 
042202 
042271 
042367 
042455 
042546 
042657 



000402 
000403 
001001 
001002 
001003 
002001 
002002 
002003 
004001 
004002 
0O4003 
010001 
010002 
010003 
020001 
020002 
020003 
040001 
040002 
040003 
100001 
100002 
100003 
177777 



104 
103 
103 
115 
10^ 
10'- 
12/ 



124 



115 
157 
157 
145 
141 
170 
162 
123 



101 
156 
156 
163 
143 
160 
151 
i<23 



KW!« 


08; 12 PAGfc 120-3 


.UORD 


000402 


.WORD 


00<>403 


■ WORD 


001001 


.WORD 


001 >02 


.WORD 


001<>03 


.UOHD 


002001 


.WORD 


002002 


.WORD 


002003 


.WORD 


004001 


.WORD 


004002 


.WORD 


004003 


.WORD 


010001 


.WORD 


010O02 


.WORD 


010003 


.WORD 


020001 


.WORD 


020002 


.WORD 


020003 


.WORD 


040001 


.WORO 


040002 


.WORD 


040003 


.WORO 


100001 


.WORD 


100002 


.WORD 


10OOO3 


.WORD 


177777 



SifcQ 184 



T9TBE: 

iLOCAL TEXT MESSAGES FOR TEST 



TST9ID: .ASCI/ 

T9CCTSSR; 

T9WRTSSRi 

T9HSGBUF! 

T98KGN0j 

T9NINT: .ASCI/ 

T90PR; 

T9NXMi 

.EVEN 



' DHA Memory Addreaeing' 

.ASCI/ 'Content* of TSSR Incorr tc t After GET STATUS' 

.ASCI/ 'Content* of TSSR Incorrect After WRITE CHARACTERISTICS' 

.ASCI/ 'he*e*?e Buffer Content* Incorrect After iaIITE CHARACTERISTICS' 

.ASCIZ Background Pattern Dleturbed By WRITF CHARACTERISTICS' 

'E*pecte.d Interrupt Not Received On WRITE CHARACTERISTICS' 

.ASCI/ *Wr»tt Characteristic dote in ram does not match expected' 

,ASCi/ *TSSR NXM |>tt failed to ««t whe.n non-t*»*t*nt mt/ftO^y addFeau ti.pccJfi 



C/TKtA 1 


rK25 KRT 


END FUNC 01 


TEST 9 : 


SUBTEST 


3: CHAR 


ACTERIS 


6 793 








67^4 








6 795 








6 796 








6 797 








6798 








6799 








6800 








6801 








680 J 








6805 








6804 








6805 








6806 








680 7 








6808 








6809 








6810 








6811 








6812 








6813 


042 746 






6814 


042746 






6815 


042752 


OO503 7 


041734 


6816 


042 756 


0<J5037 


041/52 


6817 


04276? 


OC5037 


041756 


6818 


042766 


042701 


1700O0 


6819 


042772 


010005 




6820 


042774 


0O4737 


020070 


6821 


043000 


013702 


003072 


682? 


04 3004 


062702 


0OO020 


6823 


04 30X0 


060102 




6824 


04 3012 


042702 


000003 


6825 


04 3016 


013703 


003076 


6826 


04302? 


162703 


000020 


682 7 


043026 


010237 


041734 


6828 


04 3032 


010237 


041736 


6829 


04 3036 


020203 




6830 


043040 


101007 




6831 


04 3042 


02023 7 


00307? 


6832 


04 3046 


103007 




6833 


04 3050 


005737 


003102 


6834 


04 3054 


001004 




6835 


04 3056 


0OO424 




6836 


04 3060 


162 702 


000020 


683 7 


04 3064 


0O0754 




6838 


043066 






6839 


04 3066 


005737 


00310? 


6840 


04 3072 


001420 




6841 


O4 50/4 


0057 37 


003100 


684? 


043100 


001413 




684 3 


043102 


0O4737 


020052 


6844 


043106 


010500 




6845 


045110 


010057 


04173? 


6846 


043114 


010201 




684; 


045116 


004 737 


020112 


6848 


043122 


010037 


041736 


6849 


043126 


105403 





MACRO M1200 20 -APR -84 08:12 



1 5 

PAUL 121 



SEQ 185 



ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC f REF SPACE: 



DIAGNOSTIC FREE SPACE IS BETWEEN THE ENO OF 
BEGINNING OF THE SUPERVISOR, THIS IS ALWAYS 
IF MEMORY ABOVE 28K SPECIFIED (VIA Rl) THEN 
TO THE RELOCATION BASE. 



THE DIAGNOSTIC AND THE 



BELOW 
PAR 6 



24K. 
IS SET 



INPUTS: 

RO 
Rl 

OUPTUTS: 

T9PMR6 ■ 
T9HIAD0 
T9L0ADD 
C BIT • 
C BIT - 

t9C0NVERT: 

SAVREG 

CLR 

CLR 

CLR 

BIC 

MOV 

JSR 

MOV 

ADO 

ADO 

BIC 
251: MOV 

SUB 

MOV 

MOV 

CMP 

BHI 

CMP 

BHIS 

TST 

BNE 

BR 

sue 

BR 



351: 
50$: 



rsT 

BEQ 

TST 
BEQ 
JSR 

MOV 
MOV 
MOV 
JSR 
MOV 
BCS 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



AD0RE5S BIASED TO PAR6 IF >28K UNDER TEST 

- HIGH ORDER ADDRESS IN NON PAR6 FORMAT 

- LOW ORDER AOORESS IN NON PAR6 FORMAT 
1 IF GOOO AOORESS RETURNED 

IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 



T9L0AOO iCLEAR 
T9HIA0D iCLEAR 
T9PAR6 

♦tC<7777>,Rl 
R0.R5 
PC.KTOFF 
FREE.R2 
♦16.. R2 

R1.R2 

♦3.R2 

FRCEHI.R3 

♦16..R3 

R2.T9L0ADD 

R2.T9PAR6 

R2.R3 

351 

R2.FREE 

50* 

KTENABLE 

501 

90f 

•16, ,R2 

25$ 

KTENABLE 

100$ 

KTFLG 

90$ 

PC. K TON 

R5.R0 

RO, T9HIADD 

R2.R1 

PC.SE1MAP 

RO. T9PAR6 

105$ 



AOORESS 

TC. 



jSAVE RI-R5 UNTIL NEXT RETURN 
LOW AOORESS 
HIGH ADDRESS 

CLEAR PAR6 BIASEO ADDRESS 

FORCE TO LOWER 12 BITS Of 

SAVE HIGH ORDER ADDRESS U 

SHUTOFF MEMORY MANAGEMENT 

GET FIRST FREE AOORESS 

IN CASE TEST PATTERN-0 

ADO IN TEST PATTERN 

MAKE IT MO0U.0-4 

GET LAST FREE ADDRESS 

SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER) 

SAVE POSSIBLE LOW ADDRESS 

SAVE IT IN PAR6 BIASED TOO 

IS THIS ADDRESS ABOVE FREE SPACE? 

BR IF YES 

IS IT IN FREE SPACE? 

BR IF YES- ITS GOOO 

TESTING ABOVE 28K ? 

BR If YES 

OR IF NOT IN FREE SPACE 

FORCE HT THE TEST PATTERN 

TRY THIS TEST PATTERN ADDRESS 

TESTING ABOVE 28K? 

BR IF NO 

ANY MEMORY ABOVE 28K y 

BR IF NO 

TURN ON MEMORY MANAGEMENT 

GET HIGH OROfR ADDRESS 

SAVE POSSIBLE HIGH ADDRFSS 

GET COMPUTED LOW ORDER ADDRESS 

RETURN PAR6 BIASED ADDRESS IN RO 

COP> PAR6 BiASED ADDRESS 

BR IF VALID ADDRESS 



C/TKe-A TIC!. »RT LNO HJNC *1 MACHO Ml '00 20-APR <1 08:1? 

TEST 9: SUBTEST 3: CHARACTERISTIC DATA SELECTED L0CAIJL0N5 



6850 
fcfiSt 
6652 
t>853 
b«54 

6855 



043150 
04313? 
043134 
043136 



000«'?4 1 
000401 
000261 
000207 



90$: 

1001; 
105$ j 



CLC 
BR 
SEC 
RTS 



105$ 

PC 



b 1 ! 



) 



PAyt XZi-X 



5EQ 186 



iCLR C BIT FOR FAILURE 

I SET SUCCESS 
l RE TURN 



C/TKEirJ TK25J RT END f'UNC 01 MACRO M120Q 2Q-APR-84 OQjlH 

TEST 9; SUBTEST 3: CHARACTERISTIC DATA ELECTED LOCATIONS 



! ' 1 L 
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5EU 18/ 



6857 
6858 
6859 
6860 
6861 
686? 
6865 
6864 
6865 
6866 
686/ 
6868 
6869 
68/0 
68/1 
687? 
6873 
6874 
68 75 
6876 
6877 
6878 
68 79 
6880 
6881 
688*? 
6883 
6884 
6885 
6886 
688/ 
6888 
6889 
6890 
6891 
689? 
6893 
6894 
6895 
6896 
689/ 
6898 
6899 
6900 
6901 
690? 
6903 
r»904 
6905 
6906 
690/ 
6908 
6909 
6910 
6911 
691 ? 
6913 



043140 
043140 
043144 
043150 
043154 
043160 
043164 
043166 
043172 
043176 
04 3202 
04 3204 
043210 
043214 
043220 
043224 
043226 
043230 
0432.34 
04 3236 
04 3242 
04 3244 
04 3246 
04 3252 
043254 
04 3254 
04 3260 
04326? 
04 3266 
04 32 70 
043274 
0432.6 
04 3 302 
04 3*04 
043310 
043314 



00503/ 
00503/ 
00503/ 
042701 
010005 
004737 
013702 
062702 
060102 
013703 
162703 
010237 
010237 
020203 
101007 
020237 
105007 
00573/ 
0010O4 
0OO424 
162 702 
000754 

005737 
001420 
00573/ 
001413 
004737 
010500 
010037 
010201 
004 73 7 
01003? 
103403 



041/34 
041732 
041736 
170000 

020070 
003072 
000020 

003076 
0OO020 
041734 
041736 



003072 
003102 

000020 

00310? 

003100 

020052 

04173? 

020112 
041/36 



ONLY FOR MESSAGH BUFFER ADDRESSES 

ROUTINE TO CONVERT A TEST PMTTERN TO A VALID ADDRESS IN DIAGNOSTIC F'MfcE SPACE 

DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 

BEGINNING OF THE SUPERVISOR, THIS IS ALWAYS BELOW 24K . 

IF MEMORY ABOVE 28K SPECIFIED (VIA Rl) THEN PAR 6 IS SET 

TO THE RELOCATION BASE, 



INPUTS: 

RO 
Rl 

OUPTUTS: 

T9PAR6 
T9HIADD 
T9L0ADD 
C BIT - 
C BIT - 



T9CT2: 



25* 



35$ 
50$ 



SAVREG 

CLR 

CLR 

CLR 

BIC 

MOV 

JSR 

MOV 

ADD 

ADD 

MOV 

sue 

MOV 

MOV 

CMP 

BHI 

CMP 

BHIS 

TST 

BNE 

BR 

sie 

BR 

TST 
BEQ 
1ST 
BEQ 
JSR 
MOV 
MOV 
MOV 
JSR 
MOV 
BCS 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS P T TS 



1 ADDRESS BIASED TO PAR6 IF >28K UNOER TEST 
■ HIGH ORDER ADDRESS IN NON PA ., FORMAT 
- LOW ORDER ADDRESS IN NON PAR6 FORMAT 
1 IF GOOO ADDRESS RETURNED 
IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 



T9L0ADD iCLEAR 

T9HIADD i CLEAR 

T9PAR6 

#*C<7777*,R1 

R0,R5 

PC.KTOFF 

FREE.R2 

♦16. ,R2 

RI.R2 

FREEHI,R3 

♦16. ,R3 

R2.T9L0A0D 

R2.T9PAR6 

R2.R3 

35$ 

R2.FRFE 

50$ 

KTENABLE 

50$ 

90$ 

♦16., R2 

25$ 

KTENABLE 

100$ 

KTf I (> 

90$ 

PC.KTON 

R5.R0 

RO, T9HIADD 

R2.R1 

PC.SE 1MAP 

RO, T9PAR6 

105$ 



iSAVE R1-R5 UNTIL NLXT RETURN 
LOW ADDRESS 
HIGH AOORESS 

CLEAR PAR6 BIASED ADDRESS 

FORCE TO LOWER 12 BITS OF ADDRESS 

SAVE HIGH ORDER A0DRE5S BITS 

SHJTOFF MEMORY MANAGEMENT 

GET FIRST FREE ADORESS 

IN CASE TEST PATTERN-0 

ADD IN TEST PATTERN 

GET LAST FREE ADDRESS 

SAVE AT LEAST 8 WORDS (IN CASE MESSAGE BUFFER) 

SAVE POSSIBLE LOW ADDRESS 

SAVE IT IN PAR6 BIASED TOO 

IS THIS ADDRESS ABOVE FREE SPACE? 

BR IF YFS 

IS IT IN FREE SPACE? 

BR IF YES- ITS GOOO 

TESTING ABOVE 28K? 

BR IF YES 

BR IF NOT IN FREE SPACE 

FORCE FIT THE TEST PATTERN 

TRY THIS TEST PATTERN ADDRESS 

TESTING ABOVE 28K? 

BR IF NO 

ANY MEMORY ABOVE 28K > 

BR IF NO 

TURN ON MEMORY MANAGEMENT 

GET HIGH ORDER ADDRESS 

SAVE POSSIBLE HIGH ADORESS 

GET COMPUTED LOW ORDER ADDRESS 

RETURN PAR6 BIASED ADDRESS IN RO 

COPY PARfc BIASED ADDRESS 

BR IF VALID ADORESS 



TEST * x SUBTtst 



6S14 
6^15 
h<M6 
6*17 
691tt 



045316 
04 3520 
045322 
043324 



;nd v 



000241 
000401 
000261 
000207 



G15 



:^RISTI^?A M ^CTi8-L A ^A??oS§ ! 
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SEQ 138 



90$: 

100$; 
10b *; 



CLC 
BR 
SEC 
RTS 



105$ 
PC 



iCLR C BIT TOR FAILURE 

!^T SUCCESS 
j RETURN 



HI 



.5 



C/TKErt TK25 FRT END FhNC 01 HACRO M1200 20 -APR -84 06; 12 

TEST 9: SUBTEST 3; CHARACTERISTIC DATA SELECTED LOCATIONS 
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SEQ 189 



6920 
69? 1 

6923 

6924 
6925 

6926 
692/ 
6928 
6929 
6930 
6931 
6932 
6933 
6934 
6935 
6936 

693 7 
6938 
6939 
6940 
6941 
6942 

694 3 
6944 
6945 
6946 
694 7 
6948 
6949 
6950 
6951 
6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
69/0 
69/1 
69/2 
69/3 
69/4 
h9/f» 
69/6 



043326 
043326 
045332 
043336 
043342 
043344 
043350 
043356 
043362 
043366 
043372 
043376 
O43400 
043402 
043404 
043406 
043412 
04 3414 
04 3416 
043420 
043422 
043424 
04 34 26 
043434 



04 54 3b 
043436 



012701 
012702 
005003 
004737 
112765 
004737 
010265 
004737 
116511 
122124 
001401 
005205 
005202 
02022/ 
002 761 
005703 
00140? 
00024 1 
000401 
000261 
012757 
000207 



J ♦ 



ROUTINE TO READ THE FIRST 2 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT j 



R4 
Rb 



OUTPUT! 



CARRY 



ADDRESS OF THE COMMANO PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ SET TO 2 FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



T9CKRAM? 



002206 
000020 

017060 
000000 
017060 
1/7776 
017060 
177776 



000022 



177776 



10$ 



20$ 



000002 002246 



30$ 
501 



SAVREG 

MOV 

MOV 

CLR 

JSR 

MOVB 

JSR 

MOV 

JSR 

MOVB 

CMPB 

BFQ 

INC 

INC 

CMP 

BIT 

TST 

BEO 

CI c 

BR 

SEC 

MOV 

RTS 



*PAMDATA,R1 

♦RMPKTBEG.R2 

R3 

PC.CHKTSSR 

♦0.TSDBCR5) 

PC.CFKISSR 

R2.TSWUR5) 

PC.CMKTSsn 

TSBA(R5),vRl) 

(Rl)*,(R4)* 

20$ 

R5 

R2 

R2, JttMPKTBEG.2 

10$ 

R5 

50$ 

50$ 

♦2, RAMS!/ 

PC 



SAVE THE GENERAL REGISTERS 



ADDPESS TO SAVE 



THE RAM DATA 
FIRST RAM DATA 
FLAG 



BYTE ADDRESS OF 

CLEAR THE ERROR 

WAIT FOR SSR 

SET MAINTENANCE MOOE 

WAIT FOP SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOP SSR TO SE I 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR Fl AG 

ADDRESS OF NEXT RAM LOCATION 

DONE 2 BYTES? 

BR IF NO 

UAS AN ERROP FOUNO ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOO COMPARE 

'..ETUP RAMS!/ 

RETURN 



l 



ROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 



J 



T9SWRT: 



SAVREG 



I SAVE THE RIGISTERS 



1 1 5 



C/TKEA TK25 FRT END FUNC frl MACRO M1?00 ?0-APR-84 06*12 
TEST 9 : SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
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SEU 190 



6977 


04344? 


01?701 


C41670 


6978 


043446 


012721 


100004 


6979 


04345? 


012721 


041700 


6980 


0434S6 


005021 




6981 


043460 


012721 


000010 


696c? 


043464 


012721 


041712 


6983 


04 34 70 


0050?1 




6984 


04347? 


012721 


000016 


698" 


04 34 76 


005021 




6986 


043500 


005011 




698/ 


043502 


000207 




6988 








6989 








6990 








6991 








699? 








6993 








6994 








699b 








6996 








6997 








6998 


043504 






6999 


04 3504 






7000 


043510 


010401 




7001 


04351? 


005 73 7 


00310? 


7002 


043516 


001404 




7003 


043520 


010300 




7004 


0435?? 


004737 


020112 


7005 


0435?6 


010001 




7006 


043530 


01?700 


000017 


7007 


043534 


05?7OO 


100000 


7008 


04 3540 


0100?1 




7009 


04 354? 


005021 




7010 


043544 


000207 




7011 








701? 








7013 








7014 








701b 








7016 


043546 






701 / 


04 3546 






7018 


04355? 


01?700 


041700 


7019 


043556 


013701 


041734 


70?0 


04356? 


005737 


OO310? 


7021 


04 3566 


00140? 




70?? 


043570 


013701 


041736 


70? 3 


043574 


0120?1 




70?4 


043576 


01?021 




7025 


04 3600 


012021 




70?6 


04 360? 


012021 




70? 7 


043604 


01?021 




70?8 


04 3606 


000207 




7029 


04 3610 

04 3610 








0A3610 


104401 





MOV #T9PACKET,R1 

MOV $100004, (HI)* 

MOV *T9DATA,CR1)* 

CLR (Rl)» 

MOV 0B.,(R1)» 

MOV *T9BFR,(R1)* 

CLR (Rl)» 

MOV »14.,(R1)» 

CLR (Rl)* 

CLR (Rl) 

RTS PC 



j START OF THE PACKET 

lURITE CHARACTERISTICS WITH ACK 

lADORESS OF CHAR DATA BLOCK 

jEXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

l ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



iRETURN 



I * 



t ROUTINE TO SETUP A GET STATUS COMMANO PACKET AT CURRENT PACKET ADDRESS 



i - 



R3 HIGH ORDER PACKET ADDRESS 

R4 LOW ORDER PACKET ADDRESS 

NOTE; R3 IS IGNORED IF KTENABLE FLAG CLEAR 



T9SETGET; 




SAVREG 




MOV 


R4.R1 , 


TST 


KTENABLE j 


BEQ 


101 , 


MOV 


R3.R0 j 


JSR 


PC.SETMAP , 


MOV 


R0.R1 i 


10$: MOV 


*P. GETSTATUS.RO t 


BIS 


♦P.ACK.RO i 


MOV 


RO.(Rl)* i 


CLR 


CR1)» j 


RTS 


PC , 



i SAVE THE REGISTERS 

jGET LOW ORDER ADDRESS 

» TESTING ABOVE 28K? 

I BR IF NO 

jGET HIGH ORDER ADDRESS 

j RETURN ADDRESS BIASED 10 PAR6 IN RO 

i GET ADDRESS 

tGET STA1US COMMANO CODE NO 

i SET ACK 

jSTORE GET STATUS IN PACKET 

} CLEAR UNUSED WORD 

i RE TURN 



ROUTINE TO SETUP A CHARACTERISTIC DATA BLOCK AT A TEST ADDRESS 



IE 



T9CHAR: 



lOli 



SAVREG 

MOV 

MOV 

TST 

BEQ 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RTS 

ENDTST 



*T90ATA,R0 

T9L0ADD.R1 

KTENABLE 

10$ 

T9PAR6.R1 

(RO)t.(Rl) 

(R0)» ,(R1) 

(R0)» ,(R1) 

(R0).,(R1) 

(RO)*»(Ri) 

PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

jGET T9PACKET DATA POINTER 

j ASSUME NOT ABOVE 28K 

j TESTING ABOVE 28K? 

i BR IF NO 

»SET TEST ADDRESS ABOVfc ^.SK 



jSTORE 
I STORE 
i STORE 
I STORE 
j STORE 
iRETURN 



DATA 
DATA 
DATA 
DATA 
DATA 



WORC 
WORD 
WORD 
WORD 
WORD 



1 
? 
3 

4 

b 



LlOQVli 



TRAP 



CSt TST 



C/TKEA TKi>5 KRT END f-'VHC 01 MACRO M1200 20 -APR -84 08tl2 
TEST 10 5 INITIALIZE: AFTER WRITE CHARACTERISTICS 
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SEQ 191 



7051 
7032 

7055 
7054 
7055 
7056 
705 : 
7058 
7059 
7040 
7041 
7044.? 
704 5 
704 4 
7045 
7046 
704 7 
7048 
7049 
7050 
7051 
705? 

7053 

7054 
7055 
7061 
7062 
7065 
7064 
7065 
7066 
7067 
7068 
7069 
70/0 
7071 
70/2 
70/5 
7074 



7075 
70/6 
70 7 7 
70/3 
70/9 
7080 
7081 
7082 
708 5 
7004 



045612 
04361? 
04 3612 
043616 
043624 
04 3630 
043634 
043640 
043646 
043646 

04 3652 
043656 
043662 
0436 70 
04 3670 
043674 
043676 
04 3/00 
043700 
043702 
04 3/04 
043706 



043710 
043714 
04 3 720 

045724 
045740 
043742 
043744 
04 5 744 
04 5 744 
04 5746 
043750 



00503 7 
012737 
00503? 
012700 
004737 
012737 



012703 
012704 
012761 

004737 
103405 
010001 

104455 
001750 
003550 
011506 



005037 
010465 
004737 

105407 
010001 



1044S5 
001/51 
044447 



.SBTTL TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 



TEST DESCRIPTION. 



This test verifies that o Hardware Initialize 
invoked after a Write Characteristics command 
the Command, Message and Characteristic image 
in the controller ram correctly. 



command 
sets up 
blocks 



TEST STEPS: 



REPEAT FOR 
BEGIN 



LOOPCNT 



002170 
00567? 
003100 
044262 
017232 
000002 



002146 



002164 



004737 044536 



T10L00P: 



002732 
044220 
000010 

016470 



000006 



5$: 



END 



BGNTST 

CLR 

MOV 
CLR 
MOV 

JSR 
MOV 

JSR 

MOV 
MOV 
MOV 

JSR 
BCS 
MOV 
ERRDF 



Do WRITE CHARACTERISTICS command. 

If the NBA bit In the TSSR register is NOT-0 then Print Error. 

Write to TSSR register to soft initialize the controller 

If controller RAM 310-377 N0 T -0 then Print Error 



FATFIG 

*EPRT 1 .EPRTSW 

KTFLG 

♦TST101P.R0 
PC»TSTSE<UP 
#2, .LOOPCNT 

PC.T10REST 

0TSTBLK»1O. ,R3 
*TlOPACKET t R4 
08. .PKBCNHR4) 



PC.SOFINIT 

10$ 

R0.R1 

ERRN0.SFIERR.SF1MSG 



T10;: 

j CLEAR FATAL ERROR FLAG 
{SET UP ERROR ME SI AGE SWITCH 
I HOLD OFF KT11 

jASCII MESSAGE TU IDENTIFY TEST 
jDO INITIAL TEST SETUP 
iPERFORM 2 ITERATIONS 

iSET PACKET TO START-UP VALUES 



jSTART OF TEST DATA 
l GET THE ADDRESS OF 
jSTART WITH MINIMUM 



COMMAND PACKET 
ALLOWABLE VALUE 



002170 

177776 
017060 



j Do 
10$ 



Yd* 



WRITE CHARACTERISTICS comnand. 
CLR FAULG 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
KORCERROR 12$ 
BCS 15$ 
MOV R0.R1 
NEXT.ERRNO 
ERRDF ERRN0.T10SSR.PKTSSR 



j WRITE TO TSSR TO _OFT INITIALIZE 

iBR IF SOET INTT OKAY 

tSAVE CONTENTS OF TSSR 

jDEVICE FATAL. DURING INI T 

TRAP CIERDF 
.WORD 1000 
.WORD SEIERR 
.WORD SFIMSG 



iCl.EAR FATAL ERROR FLAG 

j SET THE PACKET ADDRESS JO EXECUTE 

jWAIT FOR SSR TO SET 

jSflOFORCE ERROR IF FORCER -1 
iHR IK CARRY SET C GOOO RETURN) 
iSAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



FAILED TO SET 

TRAP CH.RD* 

.WORD 1001 

.WORD T10SSR 



C/TKkA TK25 FRT END F'UNC $1 MACRO M1200 20-APR-84 08:12 
TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 
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SEQ 192 





043752 


011520 




7085 


043754 


004737 


017724 


7086 


043760 








043760 


104406 




708'' 


043762 


016501 


000000 


708b 


043766 


01270? 


000200 


7089 


043772 


032701 


000100 


7090 


043776 


001402 




7091 


044000 


052702 


000100 


7092 








7093 








7094 


044004 






7095 


044004 






7096 


044020 


020201 




709? 


044022 


001404 




7098 


044024 






7099 


044024 








044024 


104456 






044026 


001752 






044030 


044374 






044032 


011520 




7100 


044034 








044034 


104406 




7101 








710? 








7103 


044036 






7104 


044036 


004737 


016470 


7105 


04404? 






7106 


044056 


103405 




710/ 


044060 


010001 




7108 


044062 






7109 


044062 








044062 


104455 






044064 


001753 






U44066 


003550 






044070 


011506 




7110 








7111 








7112 


0440/2 


012704 


000310 


7113 


044076 


005002 




7114 


044100 


004/3 7 


017060 


7 US 


044104 


110465 


177777 


7116 


044110 


116501 


177776 


7117 


044114 






7118 


044124 


120102 




7119 


044126 


001406 




7120 


044130 






7121 


044130 








044130 


104455 






044132 


001754 






044134 


044335 






044136 


01622- 




712? 


044140 


004 737 


017724 


7123 


044144 








"44144 


104406 




7124 


044146 








044146 


104410 





15$: 



JSR 

CKLOOP 

MOV 
MOV 
BIT 
BEQ 
BIS 



PC.FATCHK 



TSSRCR5),R1 

4SSR.R2 

OOFL.Rl 

25$ 

00FL.R2 



.WORD PKTSSR 
I INC AND CHECK FOR MORE THAN 25 ERRORS 
I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
{GET THE CONTENTS OF TSSR 
i EXPECTED CONTENTS OF TSSR 
j IS OFF-LINE BIT SET ? 
I BRANCH IF NOT OFF -LINE 
I SET OFF-LINE IN EXPECTED DATA 



;If the NBA bit In the TSSR register is NOT-0 then Print error. 
25$; 



27$ 



27$: 



30$: 



FORCERROR 

CMP R2.R1 

BEQ 30$ 

NEXT.ERRNO 

ERRHRD ERRN0.T10NBA, PKTSSR 



CKLOOP 



jSSO 
I DOES EXPECTED MATCH RECEIVED ? 

{OKAY IF MATCH 



j NBA NOT ZERO 



i LOOP ON ERROR ? 



TRAP 

.WORD 
.WORD 
.UORD 

TRAP 



CIERHRD 

1002 

T10NBA 

PKTSSR 

C$CLP1 



jUrite 


to TSSR register to soft initialize the controller 




40$: 








JSR PC.SOFINIT {WRITE TO TSSR TO SOFT INITIALIZE 




FORCERROR 42$ j S80 






BCS 50$ ;BR IF SOFT INIT OKAY 






MOV RO.Rl ,SAVE CONTENTS OF TSSR 






NEXT.ERRNO 




42$: 


ERRDF ERRNO,SFlERR,SFIMSr» {DEVICE FATAL DURING INIT 






TRAP 


CiERDF 




.WORD 


10O3 




.UORD 


Sf IERR 




.WORD 


SFIMSG 



ilf 


controller 


RAM 310-377 NOT-0 then 


Print E~ror 




50$; 


MOV 


0310, R4 


I STAR 1 WITH LOC 310 






CLR 


R2 


, MEMORY EXPECTED SHOULD BE OOOOOO 




JSR 


PC.CHKTSSR 


j WAIT FOH SSR READY 




60$: 


MOVB 


R4.TSDBH(R5) 


j SELECT RAM ADDRESS 






MOVB 


TSBAL(R5),R1 


{READ LOC CONTENTS 






FORCERROR 62$,N0TS5R 


joao 






CMPB 


R1.R2 


j CHECK MEMORY FOR OOOOOO 






BEQ 


rot 


{BRANCH IF DATA OKAY 






NEXT.ERRNO 






62$: 


ERRDF 


ERRNO.TlOMEM.RAMEXP 


j MEMORY NOT ZERU AFTER INIT. 

TRAP 
.WORO 
.WORD 
.WORD 


C$ERDF 
1004 
TlOMtM 
RAMEXP 



70*i 



JSR 
CKLOOP 

ESCAPE 



PC.FATCHK 
TS1 



I INC AND CHECK FOR MORE THAN 25 ERRORS 

TRAP C5CIP1 
TRAP C$ESCAPE 



{EXIT ON FATAL ERROR 



CZTKEA TK25 FRT END TUNC 01 MACRO M1200 20APR-84 08} 12 
TEST 10: INITIALIZE AFTER WRITE CHARACTERISTICS 



L 1 r > 

PAGE 124-2 



7125 
7126 
7127 

7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 



7139 
7140 



0441^0 000434 



0*4152 
044154 
044160 



044162 
044166 
044170 
044174 
044200 
044202 
044206 
044206 
044206 
044210 



005204 

020427 000377 

001351 



005 737 002170 

001402 

004737 017776 

004737 017200 

103002 

000137 043646 



104432 
000374 



82$; 


INC 


R4 




CMP 


R4.037? 




ONE 


60$ 




TST 


FATFLG 




BEQ 


160$ 




JSR 


PC.CKDROP 


160$: 


JSR 


PC.TSTLOOP 




BCC 


165$ 




JMP 


T10L00P 


165$: 







EXIT 



TST 



5EQ 193 



.WORD L 10075- 



iLDOK AT NEXT RAM LOC. 

I AT TOP Of RAM ADDRESS SPACE 

{BRANCH TILL ALL MEMORY TESTED 



{ANY FATAL ERRORS ? 

j BRANCH IF NOT 

{TRY TO DROP THE UNIT 

{DONE ALL. ITERATIONS? 

j BR IF YES 

jLOOP UNTIL xTERA,. 'N COUNT DONE 



TRAP 
.WORD 



CJEXIT 
L10O75- 



Hi^iK%iiMwm& i mivm^m$T®s™- M <»> 



Ml 5 



12 PAGE 125 



7142 
7143 
7144 
7145 
714 7 
7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
7160 
7161 
7162 
7i65 
7164 
7165 
7166 
716 7 
716-3 
7169 
7170 



044212 
044220 
044220 
044222 
044224 
044226 

044250 
044230 
044232 
044234 
044236 

044242 



044262 
044335 

0443/4 
044447 



100004 
044230 
000000 
000010 



044242 
000000 
000016 
000000 000000 



{LOCAL STORAGE FOR THIS TEST 
i - 



,BLKB 
T10PACKET: 

.WORD 
.WORD 

.WORD 
.WORD 



T10DATA; 



.WORD 

.WORD 
.WORD 
.WORD 



10-<. -TUV2A67> 

100004 

T100ATA 



8. 



T10BFR 


14. 
0.0 



T10BFR; .BLKW 3. 

; LOCAL TEXT MESSAGES FOR TEST 



SfcQ 194 



{COMMAND PACKET FOR TEST 

j WRITE CHARACTERISTICS COMMAND, WITH rtCK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 
{MESSAGE BUFFER 



111 

111 

127 
103 



156 
156 

122 
157 



151 
143 

111 
156 



TST10I0: 
TlOMEMt .ASCIZ 

.EVEN 
T10NBA: .ASCIZ 
T10SSR; .ASCIZ 



.ASCIZ ' Initialization After WRITE CHARACTERISTICS* 
'Incorrect RAM Data After- Inlt' 

'WRITE CHARACTERISTICS Command Not Accepted' 

' Contents of *iSSR Incorrect After WRITE CHARACTERISTICS 1 



CZTKEA TK25 FRY END FUNC til MACRO M1200 20 APR -84 08; 12 

TEST 10; INITIALIZb AFTER WRITE CHARACTERISTICS 



N15 

PAGE 126 



SEQ 195 



7172 
7173 
7174 
717b 
7176 
7177 
7178 
7179 
7160 
7181 
7182 
7183 
7184 
718b 
7186 
7187 
7188 
7189 
7190 
7191 
7192 
7193 
7X94 



044536 
044536 
044542 
044546 
044552 
044556 
044560 
044564 
044570 
044572 
044576 
044600 
044602 
044604 
044604 
044604 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
000207 



104401 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



t - 



EVEN 



044220 
100004 
044230 

000010 
044242 

000016 



T10REST; 




SAVREG 




MOV 


OUOPACKfcT.Rl 


MOV 


<>1 00004, CRD* 


MOV 


*T10DATA # (R1)* 


CLR 


CR1)> 


MOV 


*8.,CR1)» 


MOV 


0T10BFR.CRD + 


CLR 


(Rl)» 


MOV 


♦14..CRD + 


CLR 


(Rl)f 


CLR 


(RX) 


RTS 


PC 


fcNDTST 





;SAVE THE REGISTERS 

i START OF THE PACKET 

I WRITE CHARACTERISTICS WITH ACK 

j ADDRESS OF CHAR DATA Bl OCK 

{EXTENDED ADDRESS 

iSIZE OF DATA BLOCK IN BYTES 

j ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



{RETURN 



L10O75; 



TRAP 



CStTST 



Bib 



THS T 10; 

7 \ 9A 

* 1^<J 

,\w 

'JO I 
7. XV 
V03 

7204 
7205 
7206 

720/ 



V »HT I NO K*IC *1 MACRO M1200 20 APR-R4 08:1? PAGE 127 
INITlALl/fr AFTER WRITfc CHARACTERISTICS 



SEQ 196 



7208 

7209 
7210 
7215 
7216 
7217 
721fl 
7219 



7220 
7221 
7222 



7223 
7224 

7225 
7226 

7250 
7251 



72 52 
7233 

7234 
7255 
72 59 
7240 



7241 
7242 
724 5 
7244 
724«. 
7,-4/, 
724 7 
■/24fl 



044606 
044606 
044606 
044612 
044620 
044624 
044630 
044634 
044642 
044642 
044642 
044642 
044644 
044650 
044654 
044654 
044660 
044662 
044662 
044662 
044664 
044670 
0446 72 
044674 
044674 
044676 
044 700 
044 702 
044 704 
044 704 
044710 
044714 
044716 
044 720 
044 720 
044 722 
044 724 
044 726 
044750 
044 7 50 
044734 
044 740 
044 744 
244 750 
044 754 

044 760 



00503 7 
012737 
005037 
012700 
004737 
012737 



104402 
OCW737 
004737 

012700 
104441 



104404 
0O4757 
103405 
OiOOOl 

104455 
002115 
003550 
011506 

012704 
004737 
103405 
010001 

104456 
002116 
0O4 754 
011506 

00503 7 
005O57 
012704 
010465 

004 75? 

005 / 5 7 
001004 



002170 
005672 
003100 
045670 
017232 
000002 



045736 
045774 

oooooo 



016470 



0455CJ 
010152 



002170 
0O2172 
045060 
1 7 7776 
01 7060 
00*172 



.SBTTL TEST 11: BASIC WRITE SUBSYSTEM MEMORY COMMAND 
i • 
I 

l THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMANO UITH 
iBSELO SELECT COOE OF (NO-OP) EXECUTES CORRECTLY. IT A..SO 
jVERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A N0N-7ER0 
jMOOE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
j COMMAND DECODING AND HANDLING SEQUENCES. 



I • 



002146 



002164 



T11L00P; 



BGNTST 

CLR 

MOV 
CLR 
MOV 
JSR 
MOV 

BGNSUB 



5* 



JSR 
JSR 
SETPRI 



BGNSEG 

JSR 
BCS 
MOV 
ERRDF 



101 



MOV 
JSR 
BCS 

MOV 
ERRHRD 



ill? 



FATn.G 

♦EPRCl.EPRTSW 
KTFLG 

♦tstuid.ro 
pctstsetup 

02. .L00PCNT 



PC.TUREST 

PC.THRST 

JPRIOO 



PC.SOFINIT 

10$ 

RO.Ri 

ERRNO.SFIERR.SFIMSG 



Til:; 

iCLEAR FATAL, ERROR FLAG 
I SET UP ERROR MESSAGE SWITCH 
iHOLD OFF KT11 

lASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
, PERFORM 2 ITERATIONS 



%//////////// BEGIN SUBTEST //////////// 

Til. I: 

TRAP C*BSUB 

iSET PACKET TO INITIAL VALUES 
iSET PACKET TO INITIAL VALUES 
jLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV 0PRIOO.RO 

TRAP CISPRI 

,>>>>>>>*>>>) BEGIN SEGMENT >>>>>»>>>>>> 

TRAP CIBSEG 

i DO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

j SAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP CIEROF 

.WORD 1101 
.WORD SFIERR 
.WORD SUMSG 



#T11PK2.«4 

PC.WRTCHR 

111 

RO.RI 

ERRNO.WRTMSG.SFIMSG 



iSUBROUTINE NEEDS PACKET AOORESS 
l ISSUE WRITE CHARACTERISTICS 
iBR, IF C.>T1AND ISSUED OK 
jSAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC 



FAILED 




TRAP 


CIERHRD 


.WORD 


1102 


.WORD 


UHTMSG 


.WORD 


SFIMSG 



CLR 


y AT^LG 


CLR 


INTRECV 


MOV 


*U1PACKFT,R4 


MOV 


R4,TS0B(R5) 


J'iR 


PC.CHKT^SR 


T'jT 


INTRtCV 


BNfc 


AH 



iCLEAR FATAL ERROR FLAG 

jCLEAR INTERRUPT RECEIVED FLAG 

I SET L*» NEW WRT, SUBSyS MEM. COMMAND 

I SET THE PACKET ADDRESS 

iUatt for ssr :o set 

jDID AN INTERRUPT OCCUR ? 
lURAMCH IF tfcS 



CI 6 
^ E ?i! K ftVi? T H feW F . K ^5?4T E Mri^8B?^8 N D 20 - APR - M 08!l? PAt;E l27i 



SEQ 197 



If i 



7050 



7053 
7054 
7055 
7056 
7^57 
7^58 
7059 

7063 



70M 
7065 



7066 
7067 
7068 



7269 
7070 
70 71 
7072 
70 73 



70 75 
70 76 
7.V7 
70 78 
70 79 
•"081 
7083 
7084 
7085 
7086 

708 7 
7088 
7089 
709O 
7091 
7090 

709 5 
7094 
709 c > 
709 7 
"7299 
7300 
Y301 



044 760 
044 760 
044 764 
044 766 
044 7 70 
044 770 
044 7 76 
045000 
045006 
045^10 
045014 
045016 
045000 
O45000 
045000 
045004 
045006 
045030 
O45050 
045030 
045030 



045030 

O45O30 
04 50 30 

045034 
045040 
045040 
045046 
045046 
045046 
045050 



045050 
045060 
045060 
045060 
0-15064 
045066 
045070 
0450 70 
0450 71 
0450 70 
0450 74 
0450 76 



0454 76 
045500 
045500 



104456 
000117 
045576 
01 1500 
016501 
010700 
030 701 
001400 
050 700 
000001 
OOU04 

104456 
000100 
045500 
011520 



104405 



104403 

005 73 7 
001400 
004737 



104430 
000776 



ERRHRD fcRRNO.TllNINT.PKTSSR 



100206 
0450 70 
000000 
000006 

000 

ooo 
oooooo 

000000 



oooooo 
oooooo 

000100 
000100 



0001 '0 
017776 



00$! 



05$; 



301? 



591: 



60$: 



i 



MOV 


TSSR(R5) t Rl 


MOV 


*SSR,RO 


BIT 


0OFL ,R1 


BEQ 


05$ 


BIS 


♦Of'L.RO 


CMP 


RO,Rl 


BEQ 


30$ 


ERRHRD 


ERRNO.TllNBA, PKTSSR 



ENDSEG 



ENOSUB 



TST 


FATFLG 


BEQ 


60$ 


JSR 


PC.CKDROP 



EXIT 



TST 



jLOCAL STORAGE FOR THIS TEST 
I - 



,BLKB 

TUPACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T110ATA; 



100204 

mhuiQ 



T11BS0 
T11BS1 
T11BS0 

T11BFR; 



TliPKOi 



.BYTE 
.ByT* 

.word 

.WOPD 
.BLKW 



10 <. TUV0A£7> 

100006 
rilDATA 



f , 

o 
u 


o 

108. 



,BL KB 10 « . TUV«!A&/* 



TRAP C$ERHRD 

.WORD 1103 
.WORD T11NINT 
.WORD PKTSSR 

iGET THE CONTENTS OF TSSR 

, EXPECTED CONTENTS OF TSSR 

iIS OFF-LINE BIT SET ? 

, BRANCH IF MOT OFF -LINE 

,SET OFF-LINE IN EXPECTED DATA 

iDOES EXPECTED MATCH RECEIVED ? 

,0KAY IF MATCH 

I NBA NOT ZERO 

TRAP C$ERHRD 

.WORD 1104 
.WORD T11N8A 
.WORD PKTSSR 

%<<<<<<<<<<<<< ENO SEGMENT <<<<< < <<<<<< < 

10000$: 

TRAP C$ESEG 



l\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 10077: 



TRAP 



C5ESUB 



l ANY FATAL ERRORS ? 

j BRANCH IF NOT 

I TRY TO DROP THE UNIT 

j ALL DONE THIS TEST 



TRAP 

♦ WORD 



C$EXiT 
L10076-. 



,WORD 
.WORD 



100004 
TllDTA 



jCOMMANO PACKET FOR TEST 

iWRITE SUBSYSTEM MEM. COMMMNO, WITH IE. 

i ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
iCHARACIERISTlCS DATA BLOCK 

iBSElo byte 

iBSELl BYTE 

iBSELl WORD 

sOATA 

, MESSAGE BUFFER 



iCOMMANO PACKET FOR TEST 

jwRHE CHARA. MEM. CMNO.. WITH i£ % AC* 

iAUUREi>S OF SELECT DATA BLOCK 



ACK 



\r\h 
tewwHhWjkwmsth™ hM? eitf«No ao - APRM ooti? page ™-* 



SEQ 198 



7502 


045504 


000000 






.WORD 





7303 


045506 


000010 






.WORD 


8. 


7304 














7505 














7306 


045510 








TllDTA; 




750 7 


045510 


0450 76 






.WORD 


T11BFR 


7 308 


045512 


000000 






.WORD 





7 309 


045514 


000400 






.WORD 


256. 


7 310 


045516 


000000 


000000 




.WORD 


0,0 


7511 














751/ 














7315 










x * 




7314 










1 LOCAL TEXT MES 


SAGES Fi 


7315 










I - 




7 316 














7517 


0455// 


1/7 


1// 


111 


TUNBA: .ASCI/ 


•WRITE 


"\M8 


045576 


105 


170 


160 


T11NINT: 


.ASCI/ 


731" 


045670 


10/ 


141 


163 


TST11ID: 


.ASCIZ 


73/0 










.EVEN 




7321 















I STARTING VALUE OF BLOCK SIZE 



i SELECT DATA BLOCK 

I ADDRESS OF MESSAGE BUFFER 

; LENGTH OF MESSAGE BUFFER 



TEST 



SUBSYSTEM MEMORY CotnmanH Not Accepted' 
'Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY 
'Btt«ic WRITE SUBSYSTEM MEMORY Command' 



C/TKt;^ TK25 * HI fcND KUNC 01 MArRQ M120Q 
TEST 1J: BASIC WRITE SUBSYSTEM MEMORY COMMAND 



bib 
20 -APR -84 08 5 12 PAGE 128 



SEQ 199 



7323 
7324 
7325 

7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7355 
7336 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
734 7 
7348 
7549 
7350 
7351 
7352 
7353 
7 354 
7 555 
7 356 
735.' 
7358 



045736 
045 73b 
045742 
045746 
045752 
045/56 
045760 
045 764 
045 766 
045 770 
045772 



045 7/4 
0457 74 
046000 
0460O4 
046010 
046014 
046016 
046022 
046026 
046030 
046034 
046056 
046040 
046044 
046046 
046046 
046046 



012701 
012721 
012721 
005021 
012721 
O05021 
00502". 
005011 
000207 



012701 
012721 
012721 
005021 
012721 
012721 
005051 
012721 
005021 
005011 
005037 
000207 



104401 



045060 
100206 
045070 

000006 



045500 
100204 
045510 

000010 
045076 

000400 
04507b 



I ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
jURITE SUBSYSTEM MEMORY COMMAND 



iSAVE THF REGISTERS 

I START Of THE PACKET 

I WRITE SUBSYSTEM MEM. WITH ACK , IE 

» ADDRESS Of DATA BLOCK 

jEXTENOED ADDRESS 

I SIZE OF" DATA BLOCK IN BYTES 

I CLEAR BSELO AND BSEL1 

I CLEAR SEL2 

j CLEAR DATA AREA 

, RETURN 



T11REST: 




SAVREG 




MOV 


*T11PACKET,R1 


MOV 


0100206, CRD* 


MOV 


♦TllDAi'A.CRl)* 


CLR 


CRD* 


MOV 


•6..CR1)* 


CLR 


CRD* 


CLR 


(Rl)» 


CLR 


(Rl) 



RTS 



PC 



TllRSTj 



SAVREG 




MOV 


♦T11PK2.R1 


MOV 


♦ 100204, CRD* 


MOV 


*T11DTA,(RD* 


CLR 


CRD* 


MOV 


♦8. .CRD* 


MOV 


*U16FR t CRD* 


CLR 


(RD* 


MOV 


♦256., CRD* 


CLR 


CRD* 


CLR 


CRD 


CLR 


U1BFR 


RTS 


PC 



ENDTST 



>SAVE THE REGISTERS 

j START OT THE PACKET 

lURITE CHARA. WITH ACK, 

i ADDRESS Of CHARAIS7ICS 

»T. TENOED ADDRESS 

jS.ZE Of DATA BLOCK IN BYTES 

jMESSAGE BUfTER ADDRESS 

I LENGTH OF MESSAGE BUFFER 



IE 

DATA BLOCK 



j CLEAR 1ST 
I RE TURN 



LOG IN MESSAGE BUFFER 



L 100 76; 



TRAP 



C$ETST 



C/TKfA TK25 »Rt LND U"NC 01 MACRO M1200 
HARDWAfU PARAMETER CODING SECTION 



Klfa 

20 -APR. 84 08:12 PAGE 129 



SEQ 200 



7560 
73nl 
73*2 

7365 

7564 
7365 
7566 
7 5b 7 
7568 
7369 
7370 



75/1 
7372 



7373 



7374 



7375 



7 3/6 

73/; 

737H 
73/** 
7360 



046050 
046050 
046052 

046052 
046052 
046054 
046056 
046060 
046062 
046062 
046064 
046066 
046070 
046072 
046072 
046074 
046076 
046100 
046102 
046104 

046104 
046104 
046133 
046157 



000015 



000031 
046104 
160000 
177776 

00)031 
04M33 
OOOOOO 
000776 

002032 
046157 
000340 
OOOOOO 
000007 



104 
111 
ill 



, SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SlPERVISOR TO BUILD P TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



105 126 HPM1: 
116 124 HTM2: 
116 124 HPM3; 



bGNHRD 



GPRMA HPMl.0,0, 160000, 177776, YES 



GPRMA HPM2 t 2,0,0,776,YES 



GPRMD HPM3 ,4,0,340 t O,7 l YES 



LIHARD 



.WORD L10100-LIHARD/2 



ENDHflD 



.ASCIZ 'DEVICE ADDRESS USSR) 

.ASCI/ 'INTERRUPT VECTOR 

■ASCI* 'INTERRUPT PRIORITY 
♦ EVEN 



tGET 


TSBA/TSDB 


REGISTER 


ADDRESS 






.WORD 


TICODE 






.WORD 


HPM1 






.WORD 


TILOLIM 






.WORD 


TIHILIM 


jGET 


VECTOR ADDRESS. 








.WORD 


TICODE 






.WORD 


HPM2 






.WORD 


TILOLIM 






.WORD 


TIHILIM 


j GET 


INTERRUPT 


PRIORITY 


, 






.WORD 


TICODE 






.WORD 


HPM3 






.WORO 


340 






.WORD 


TILOLIM 






.WORD 


TIHILIM 






♦ EVEN 






L101Q0' 







Gib 



7TKEA TK25 ^ RT END f UNC 01 MACRO M1200 

JOFTUARf PARAMETER CODING SECTION 



7382 

7583 

7384 
7385 
7386 
7 38/ 
7388 
7 389 
7390 
7391 
7392 



7393 



7394 



7 395 
7396 
7397 



7398 
7399 
7400 
7401 
7402 
7403 
7404 
7405 
740b 
740/ 
7408 
7409 
7410 
7411 
7412 



7415 
7414 
7415 



046210 
046210 
046212 
046212 
046212 
046214 
046216 
046220 
046220 
046222 
046224 



046226 
046226 



0462 72 
046322 
046352 



046402 
046402 
046404 
046404 
046406 
046410 
04641? 
046414 
046416 
046420 
046422 
046424 
046426 
046430 



000006 



000130 
046226 
177777 

001130 
046272 
177777 



105 
111 
120 
120 



000013 

0234 70 
023726 
024700 
026164 
030216 
031426 
033502 
036/14 
0404 32 
04 3612 
044606 



116 
116 
105 
105 



101 
110 
122 
122 



20-APR-84 08:12 PAGE 130 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



SEQ 201 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SLPERVISOR TO BUILD PTABlES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



BGNSFT 



GPRML SPM1, 0,-1, YES 



GPRML SPM4, 2.-1, YES 



SPM1 
SPM4 
SPM6 
SPM7 



J * 



GPRHO 
GPRMO 
ENDSFT 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI/ 

.EVEN 

.SBTTI 



SPM6.4.D, 7777,0,7777, YES 
SPM7, 6,0,7777, 0,7777, YES 



.WORD L10101-L*SOFT/2 
LfSOFT:: 
jGET RAM DUMP TEST FLAG 

.WORD TiCODE 

.WORD SPM1 

. WORD - 1 
j GET ITERATION CONTROL. 

.WORD TtCODE 

. WORD SPM4 

.WORD -1 
j GET LOCAL ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 



LlOlOls 



.EVEN 



♦ENABLE CONTROLLER RAM DUMP ON ERROR' 
1 INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT 
'PER l*4IT ERROR LIMIT 

PATCH AREA 



jOISPATCH TABLE 

t 

; ♦*♦ MOVE TO FRONT OF PROGRAM KQR RELEASE ♦♦♦ 



DISPATCH 



TESTNU 



.WORD 


11 


UDISPATCH- : 




.WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WORD 


r; 


.WORD 


T8 


.WORD 


T9 


.WORD 


110 


.WORD 


Til 



i FINALLY A G£N£RGUS PATCH AREA, 



8* 



tlKl-A TK.'S frt tND FUNC tfl 
TCH AREA 



7 A 16 
74 1 / 
74 IB 
7419 
7420 
7421 
7422 
74 23 
7424 
7425 



7426 

742 r 
7428 
7429 
74 50 
7431 



74 32 
74 33 
7434 
74 5b 

74 36 

74 5 7 
7438 



046432 



0464 32 

046432 

046434 
046436 



046436 
046436 
0464 56 
046440 
046442 
046442 
046444 
046446 
046*50 
046450 
0464^0 



046450 
00000b 



oooooo 

000003 

1 Z2522 
000224 
000240 



000001 



H16 
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; AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 
I DESCRIBED IN "SUPPRU.MEM" IFOR REV C). 

J 

PATCH: : 

I .IF NZ.,6377 

i . -.!377*1 

I .ENOC 

LASTAD j SET LAST USED ADDRESS. 



SEQ 202 



LILASTjj 



.EVEN 

.WORD TiFREE 

.WORD T$SIZE 



.SBTTL HARD COOED P TABLE 

DIAGNOSTIC IS PRE PARAMETERIZED PER THIS TABLE 



{ -- 



BGNSF1UP 
BGNP1AB 



.UORD 
.WORD 
.WORD 
ENOPTAB 

F.NOSETUP 

,£N0 



1 



1 /2b22 

224 
PRXOb 



L10102: 



L10104; 



. WORD 

.WORD L10104-./2-1 



s 



ZTKF.A 
YHBOl 



AODSSR 

ADR 

AM8TSS 

ASStMB 

A1716 

BADDAT 

BADSSR 

BAR 

RF.NRSU 

Bit 

BITO 

BITOO 

BITOl 

BITO? 

BIT03 

BIT04 

BIT05 

BIT06 

HIT07 

uiToa 

BIT 09 

Bin 

BIT10 

BITU 

BIT1? 

BITU 

BIT14 

BIT15 

BIT* 1 

BIT 3 

BIT4 

BIT5 

BIT6 

BIT7 

BI18 

BIT*) 

BOt 

BRINIi 

BSELO 

BSEL1 

CHKAMR 

CHKMAN 

CHKTSS 

CKDROP 

CKEMAX 

CKMSG 

CKMSG2 

CKWAM 

CKRAM2 

CMP MEM 

CONFIG 

COUNT 

CSH 

CSRADO 

CTAR 

CTABf 

CTABM 



TK?S FRT 
TABl.F 

01161? ( 

000020 < 

OOG156 

000010 

000003 

003110 

016374 

174402 

002174 

040000 

000001 

000001 

OOOOO? 

000004 

00001C 

000020 

000040 
000100 
0O0200 
000400 
001000 
000002 
002000 
004000 
010000 
02OOOO 
040000 
100000 
000004 
0OO010 
000020 
000040 
000100 
000200 
0O0400 
001000 
000400 
0O4 355 
OOOOOO 
OOOOOl 
016540 
021226 
01 7060 
017776 
017624 
011032 
01115? 
010354 
010730 
020402 
020044 
002254 
1 74400 
00? 1 34 
003116 
003130 
003116 



END FUNC 













rib 




01 


MACRO M1200 


20 -APR -84 


OB j 12 PAGE 


130-2 




C*AU 


• 000052 


DEBUGM 


011304 




FATERR 


■ 000060 


CtAUTO' 


■ 000061 


DEVCNT 


002166 


G 


FATFLG 


002170 G 


CJBRK 


• 000022 


DEVDRO 


023420 




FERCM 


011374 


CIBSEG' 


■ 000004 


DEVNRD 


023337 




FIFEXP 


011642 G 


CIBSUB 


■ 000002 


DEVNXR 


023255 




FIF1MS 


011714 


CJCEFG- 


• 000045 


D^VONL 


023173 




FIF2MS 


011763 


CtCLCK- 


» 000062 


DEVSUM 


023136 




FILLME 


020216 


CICLEA- 


- 000012 


DFPT8L 


002124 


G 


FNOINT 


004113 


C*C105« 


■ 000035 


DIAGMC- 


OOOOOO 




FORCER 


002144 G 


CICLP1- 


■ 000006 


DICEA - 


OOOOOl 




FREE 


003072 G 


CICVEC 


■ 00^036 


DLCYL - 


000177 




FREEHI 


003076 


C*DCIN« 


. 000044 


DLDNER- 


100200 




FRESIZ 


003074 G 


C$DOOU« 


- 000051 


DLERR - 


177730 




FUS1 


004015 


CIDRPT- 


■ 000024 


DLGETS- 


000004 




FIAU ■ 


■ 000015 


CIDU ■ 


• 0OO053 


DLRDHD* 


000010 




FIAUTO' 


• 000020 


CIEOIT- 


■ 0OOO03 


DLRDNH- 


000016 




FIBGN 


■ 000040 


C$FROF. 


■ 000055 


DLSR - 


0OO013 




FIC.EA' 


• 000007 


CIERHR' 


■ 000056 


DLUN - 


000006 




FIDO • 


• 000016 


CIERRO' 


• 000060 


DSBINT 


016700 




FIEND 


• 000041 


CIERSF- 


■ 0OO054 


DUA012 


004541 




F»HARD 


> 000004 


CtERSO* 


• 000057 


DUFLG 


003060 


G 


FtHW • 


■ 000013 


C$ESCA- 


■ 000010 


DUMMY 


003030 




MINIT« 


• 000006 


CIESEG- 


- 000005 


EF.CON- 


000036 


G 


FIJMP « 


• 000050 


C*ESU6 


■ 000003 


EF.NEW- 


000035 


G 


Ft MOO ' 


• OOOOOO 


CIETST' 


■ OOOOOl 


EF. PUR- 


000054 


G 


FIMSG « 


• 000011 


CIEXIT- 


• 000032 


EE, RES- 


000037 


G 


FIPROT' 


• 000021 


C*GETB' 


■ 00O026 


EF.STA- 


000040 


G 


FfPWR • 


■ 000017 


C»GETU- 


■ 00O027 


EMAXDU 


017521 




FtRPT ■ 


■ 000012 


CIGMAN« 


• 000043 


EN 


OOOOOO 




FISEG 


■ 000003 


CtGPHR« 


■ 000042 


ENAINT 


016646 




FISOFT* 


• 000005 


CIGPLO- 


• 000030 


ENVIRN 


021356 




FISRV « 


■ OOOO10 


CIGPRI« 


- 000040 


EPRTSW 


002146 


G 


FISUB « 


- 000002 


CIINIT 


• 00OO11 


Ef-RTl 


005672 




FISW « 


• 000014 


CIINLP- 


■ 000020 


EPRT2 


005672 




FITEST- 


■ OOOOOl 


C$MANI« 


• 000050 


EPRT3 


005672 




GODAT 


003112 G 


CIMEM 


000031 


ERCM 


011405 




GERRMA 


002142 G 


CtMSG ■ 


• 000023 


ERRHI 


002202 


G 


GETPAT 


020722 G 


CIOPEN- 


■ 000034 


ERRK 


017500 




GETSEL 


021004 G 


CIPNTB- 


• 000014 


ERRLO 


002204 


G 


GICNTO- 


■ 000200 


CIPNTF- 


• 000017 


ERRNO • 


002120 




G$DELM« 


• 000372 


CfPNTS« 


• 0OOO16 


ERRVEC- 


000004 


G 


GIDISP- 


• 000003 


CIPNTX' 


■ 000015 


ERTABE 


003330 




GIEXCP- 


■ 000400 


C*QIO - 


■ 00037; 


ERTA8L 


003130 




GIHILI' 


• 000002 


ciRoeu- 


• 000007 


ESUM 


017502 




GILOLI« 


• OOOOOl 


CIREFG' 


■ 00OO47 


EVL 


000004 


G 


GINO - 


• OOOOOO 


C*RESE« 


■ 000033 


EXBCNT^ 


0OO010 




GIOFFS- 


• 000400 


CtREVI' 


■ 000003 


EXPBRE 


016176 


G 


giofsi- 


■ 000 3 76 


C1RFLA* 


- 000021 


EXPO 


002176 


G 


GfPRMA* 


- OOOOOl 


CtRPT - 


- 000025 


EXPGOT 


0044 31 




GIPRMO' 


• 000002 


CISEFG- 


• 000046 


EXPGT2 


004465 




GIPRML" 


• OOOOOO 


CISPRX* 


• 000041 


FXPM5U 


002266 


G 


GIRADA- 


• 000140 


CISVEC- 


• 00003 7 


F.XPREC 


016170 


G 


GIRADB- 


• OOOOOO 


CiTPRI" 


■ 000013 


EXTA 


005232 




G*RADU« 


• 000040 


DAF 


■ 1 74404 


EXTEND 


005230 




CIRAOI ■ 


■ 000120 


DATA 


0C2256 G 


Flf.NO • 


002100 




GIRADO- 


• 000020 


DATAFL. 


014/10 


EUOAD- 


000055 




GfXf eR» 


■ 000004 


DPTASC 


020760 


FATCHK 


017724 




GSYEii « 


• 000010 



SEQ 203 



HIAOLR 

HIMEM 

HOE 

HPM1 

HPM2 

HPM3 

IBE 

IDU 

IER 

IFAULT 

INCERK 

INTCPC 

INTFLA 

INTMAS 

INTR 

INTREC 

INTVEC 

IN T X 

IOKCKI 

IOKSTP 

IPRI 

ISR 

IVEC 

IXE 

IIAU 

IIAUTO 

IICLN 

IIDU 

I$HR0 

IIINIT 

IIMOO 

I$riSG 

IIPROT 

I*PTAB 

IIPWR 

ISRPT 

ItSEG 

IISETU 

IloFT 

IISRV 

IISIB 

IITST 

JIJMP 

KIPARO 

KIPAR1 

KIPAR2 

KIPAR3 

KIPAR4 

KIPAR5 

KIPAR6 

KIPAR7 

KIPDRO 

KIPDR1 

KIF3R2 

KIP0R3 

KIP0R4 

KIPDR5 



001400 

007776 

100000 

046104 

046133 

046157 

010000 

000040 

020000 

004154 

017566 

016644 

016641 

016640 

016712 

002172 

016642 

004176 

000200 

OOOOOl 

002160 

000100 

002156 

004000 

000041 

000041 

000041 

000041 

0OOC41 

0OOO41 

000040 

0OOO41 

000040 

000041 

000O41 

000041 

0OOO41 

000041 

000041 

000041 

0OOO41 

000041 

000167 

172340 

172342 

172344 

172346 

172350 

17235? 

172354 

172356 

172300 

172302 

172304 

1 72306 

172510 

1/2312 



C/TKfcA 
SYMBOL 

KIPDR6- 

KIPDR7- 

KTENAB 

KTrLG 

KTINIT 

KTOFF 

KTON 

I ERRMA 

LLRRNO* 

L1STAL- 

l.OF 

LOOPCN 

LOOPCO 

LOOPFL. 

I 01 

L*ACP 

L*APT 

LiAU 

LtAUT 

LSAUTO 

LtCCP 

L$CLfcA 

L$CO 

LIDEPO 

L5DESC 

L.SDESP 

LSDEVP 

LIDISP 

L iDLY 

L$DTP 

L$DTYP 

L$DU 

LSOUT 

LSDVTY 

LiE> 

L$ENVI 

LiEfP 

LiEXPl 

I *EXP4 

LSFXP5 

LJHARD 

L*HIME 

I iHPCP 

l$hptp 

LiHW 

LilCP 

L$INII 

L $1 ADP 

Lil.AST 

L*LOAU 

L$LUN 

LiMREV 

LI NAME 

LtPRIO 

I IPROT 

i.tPRr 

L*REPP 



Tkjs krt end func 

TABLE 



172314 
172316 
003102 
003100 
021444 
0200/0 
020052 
002140 
000000 
000001 
040000 
002164 
012600 
005114 
0OO010 
002110 
002036 
022366 
0020/0 
0225/2 
002106 
022646 
002032 
002011 
003342 
0020/6 
002060 
046404 
002116 
002040 
002034 
022464 
002072 
003334 
002052 
002044 
002102 
002046 
002064 
002066 
046052 
002120 
002016 
002022 
002124 
002104 
0216O*, 
0020c 6 
0464 36 
002100 
0020 74 
002050 
002000 
002042 
021576 
002112 
002062 



G 













Jib 
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LtREV 


002010 


G 


L10057 


032124 


NULCR 


004426 




L$RPT 


022674 


G 


L 10060 


032312 


NXM 


004000 




LISOf T 


046212 


G 


L10051 


036712 


NXR 


003636 




LtSPC 


002056 


G 


L 10062 


034120 


NXRERR 


005176 


L> 


LJSPCP 


002020 


r, 


L10063 


034512 


NXRX 


003675 




L1SPTP 


002024 


G 


L 10064 


035402 


NXTU 


022032 




LISTA 


002030 


G 


L10065 


035630 


OFL 


000100 




LISW 


002134 


G 


L 10066 


040430 


ONEFIL- 


000000 




LITEST 


002114 


G 


L10067 


037176 


OIAPTS- 


000000 




LiTIML 


002014 


G 


L10070 


037434 


OIAU - 


000001 




LIUNIT 


002012 


G 


L10071 


043610 


OiBGNP- 


000001 




L 10000 


002132 




L10072 


041022 


OIBGNS- 


000001 




L10001 


002144 




L 10075 


041322 


OIDU - 


000001 




L10O02 


005226 




L10074 


041630 


OIERRT- 


000000 




L10003 


011516 




L10075 


044604 


OIGNSU- 


000001 




L10O04 


0U546 




L1007S 


046046 


OIPOIN- 


000001 




L 10005 


011564 




L 1007 7 


045032 


OISETU- 


000001 




L10O06 


011572 




L1G100 


046104 


PASRPT 


022064 




L10O07 


011610 




L10101 


046226 


PATCH 


046432 


G 


L10010 


011626 




L10102 


046442 


PATDAT 


020756 




L10011 


011640 




L10104 


046450 


PC, ERA- 


002400 




L 10012 


011712 




MEMAOO 


013426 G 


PC. IER- 


0020C0 




L1001J 


012062 




MENASC 


021175 


PC.NOO- 


001000 




L10014 


012576 




MENERR 


021122 


PC.REL- 


000000 




L10015 


013424 




MENRES 


021224 


PC.REW- 


000400 




L 10016 


013446 




MESBFA 


002716 G 


PKBCNT- 


000006 




L 1001 7 


016174 




ME5BFN 


014460 


PKKI - 


000004 




L10020 


016202 




ME SHEA 


014643 


PKLOU - 


000002 




L10021 


016210 




MMVEC • 


000250 


PKTADO 


007116 




L 10022 


016222 




MPR 


174406 


PKTFRM 


007060 




L10023 


016244 




MSA.FR- 


000006 


PKTGET 


011550 


G 


1.10024 


016272 




MSA. NO- 


oocooo 


PKTMES 


011574 


G 


1 10025 


016432 




MSA, NR« 


000004 


PKTNEW 


007153 




L 10026 


016742 




MSA.VO- 


000002 


PKTRAM 


00464 3 


P 


L10030 


0?2316 




MSGEXP 


011630 G 


PKTSSR 


011520 


G 


L10031 


022462 




MSGLOO 


012536 G 


PNT 


001000 


G 


L10032 


022570 




MSGSTA 


012022 G 


PRAMPK 


013450 




L10033 


022644 




MSGSUB 


013414 G 


PRBEXP 


016164 




L 10034 


022672 




MS. ATI- 


0OO006 


PRBMSG 


016032 




L10035 


023134 




MS. EXT- 


000200 


PRBREC 


016166 




L 10036 


023724 




MS.RSO- 


000001 


PRBT01 


016117 




L10037 


023572 




MS.RSF- 


000020 


PRBYTL 


015616 


G 


L1OO40 


023654 




MS.RST- 


000010 


PRI 


002000 


G 


L10O41 


024676 




N6A 


002000 


PR I ADO 


007532 




L10042 


024116 




NEUPAS 


022020 


PRIAO 


007602 




L10O43 


024310 




NOOEV 


003062 G 


PRIBXO 


007164 


G 


L 10044 


024510 




NOINIT 


004233 


PRIEOU 


007432 




L10O45 


026162 




NOINTR 


004117 


PRIPKT 


006712 


G 


L 10046 


025240 




NOITS 


002136 G 


PPIRAM 


007440 




L 1004 7 


0255*^0 




NOMAN 


021262 


PkITAO 


007646 




L10050 


030214 




NP.IR • 


000200 


PRITSS 


005264 




L 10051 


026506 




NP.LOO- 


000040 


PR I TO 


007716 




L]f>052 


0267/2 




NP.OUT- 


000 100 


PRIXOR 


007314 


G 


L 10053 


02/220 




NP.WRP- 


000020 


PRIOO - 


000000 


G 


L 10054 


031424 




NSI 


004050 


PRIOl - 


000040 


G 


L 10055 


033500 




NSINXT 


004 305 


PR 102 - 


000100 


G 


L10056 


051700 




NUL 


004425 


PRI03 » 


QQ014Q G 



SEQ 204 



PR 1 04 


- 000200 


G 


PRI05 


- 000240 


G 


PRI06 


- 000300 


G 


PRI07 


- 000340 


G 


PRMESS 


013702 




PRMNO 


002264 


G 


PRMSGE 


015246 


G 


PRMSGO 


015426 




PRrSGl 


015473 




PRMSG2 


015531 




PROASC 


014540 




PR1ASC 


014605 




PST32W 


003104 


G 


PUNIT 


022320 




PU.D11- 


• 000021 




PW.D13" 


- 000022 




PU.D22 


- 000020 




PW.N0P« 


■ 000000 




PU.N01' 


• 000023 




PU.RDE' 


• 000024 




PW.RDR' 


■ 000001 




PU.RDS 


■ 000005 




PW.RFI. 


• 000003 




PU.UCT' 


• 000006 




PW.WFI 


■ 000O04 




^W.WFM' 


• 00000/ 




PUI.UMI 


• 000010 




pg.wNP« 


■ 000011 




PW.WTR- 


■ 000002 




P.ACK • 


• 100000 




P.CMO « 


• 000037 




P.CONT- 


■ 000012 




P.CVC • 


■ 040000 




P.FMT « 


■ 000140 




P.hORM" 


• 000011 




P. GETS- 


• 000017 




P. IE ■ 


• 000200 




P.INIT' 


■ 000013 




P. MODE- 


■ 007400 




P.OPP - 


■ 020000 




P.POSI- 


' 0000!0 




P. READ" 


• 000001 




p. sue - 


- 010000 




P.WRIT- 


• 000005 




P.WRTC- 


00C004 




P.WRTS' 


• 000006 




QVP 


002152 


G 


RAMUSC 


013616 




RAMDAT 


002206 


G 


RAMER 


010456 


G 


RAMERR 


016204 


G 


RAMEXP 


016224 


G 


RAMFHR 


014362 




RAMFOR 


007470 




RAMHLD 


010640 




RAMIOP 


010644 




RAMPD 


Q10715 





CZTKEA 
SYMBOL 

RAMR5H 

RAMSIZ 

RAMTAD 

RBPCRA 

RCVHIA 

RCVLOA 

RDERR 

READ « 

READY - 

RECMSG 

RECV 

REG5AV 

REWIND 

RMCHBE- 

RMCHEN- 

RMMSGB- 

RMMSGE- 

RMPKTB» 

RMPKTE- 

RMR 

RWPACK 

SC 

SCE 

SCME 

SDELA^i 

SEEK - 

SELA'.jC 

SELDAT- 

SEL2 - 

SETMAP 

SETU 

SFFMSG 

SFHERR 

SFIERR 

5FIMSG 

SFPTBL 

STFLAG 

SiMSG 

SKIPT 

SOf INI 

SPACE 

SPM1 

SPM4 

SPM6 

SPM / 

SRO 

SRI 

SR2 

SR3 

SSR 

STATCO 

SVCG8L - 

5VCINS* 

SVCSUB- 

SVCTAG- 

svCTsr- 

S*LSYM* 



TK25 FRT 
TABLE 

010642 
002246 
016212 
014755 
002250 
002252 
005104 
0000 i » 
000001 
0024.1? 
002200 
020662 
010254 
000167 
000200 
000104 
000117 
000020 
000027 
010000 
010350 
100000 
020000 
004711 
010150 
0000O6 
021170 
000004 
00OO02 
020112 
022116 
011566 
003603 
003550 
011506 
0C?134 
0031O6 
011440 
003332 
0164/0 
007/60 
046226 
046272 
046322 
046352 
1/757? 
177574 
177576 
172516 
000200 
012064 
000000 
000001 
000 JO 1 
000001 
000001 
010000 



END FUNC 
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SO.IDB 


■ 000010 




TSSX 


003716 


TMAU ■ 


■ 010031 


SO.IFB 


• 000002 




TSTBLK 


002720 G 


TMAUT' 


- 010033 


SO.IFP 


• 000001 




TSTCNT 


002162 G 


TI$CLE« 


■ 010034 


SO.ILD 


• 000020 




TSTENO 


017442 


T$*OAT- 


- 010104 


SO. ION 


■ 000040 




TSTFLA 


002260 G 


TMDU 


• 010032 


SO.IRD 


■ 000100 




TSTLOO 


017200 G 


T$*HAR« 


■ 010100 


SO,IRW« 


• 000004 




TSTPTR 


002262 G 


TMHU « 


• 010000 


SO, ISP> 


■ 000200 




TSTSET 


017232 G 


TMINI- 


■ 010030 


51. ICE- 


• 00." 000 




TST1ID 


023 704 


TMMSG- 


■ 010025 


SI. IEO 


' 010000 




TST10I 


044262 


T$$PC ■ 


• 000001 


Sl.IFM. 


• 001000 




TST11I 


045670 


TMPRO- 


■ 010027 


S1.IH6 


■ 000400 




TST2ID 


024672 


T$tPTA- 


■ 010103 


Sl.IID' 


■ 0O40O0 




TST3ID 


026143 


TMRPT- 


■ 010035 


S1.I1R« 


■ 020000 




TST4ID 


030117 


TIISEG- 


■ 010000 


S1.I2R 


■ 040000 




TST5I0 


031407 


T$$S0F« 


• 010101 


SI. PAR' 


• 100000 




TST6I0 


033401 


TMSRV- 


■ 010026 


S2,ATT- 


■ 000010 




TST7I0 


036537 


tiisub- 


■ 010077 


S2.BTI 


• 000004 




TST8I0 


040272 


1IISW ■ 


■ 010001 


S2.DIM- 


' 000200 




TST9I0 


042100 


TIITES- 


■ 010076 


Si . ILW 


• 000100 




TTIBFR' 


■ 177562 G 


Tl 


023470 


S2.INR 


• 000020 




TTICSR- 


• 177560 G 


T1L00P 


023524 


S2.0UT 


■ 000040 




TTIVEC' 


■ 000O60 G 


Tl. 1 


023526 


52. UNO 


■ 000003 




TT06FR- 


• 177566 


T1.2 


023606 


TBLENO« 


• 003030 


G 


TTOCSR- 


• 177564 


T10 


043612 


TCOASC 


006017 




TUV2A 


002000 G 


TlOBFft 


044242 


TCOCOO 


006220 




TIARGC 


■ 000003 


T10DAT 


044230 


TEMPI 


003064 


G 


TICOOE' 


• 001130 


T10LOO 


043646 


TEMP? 


003066 


G 


TIERRN 


• 002120 


T10M3M 


044335 


TERCLS- 


• 000016 




TIEXCP 


• 000000 


T10NBA 


044374 


TESTNO" 


■ 000013 




T1FLAG 


• 000040 


T10PAC 


044220 


TEXASC 


005756 




T$FREE« 


• 046450 


T10RES 


044536 


TFCASC 


006060 




TIGMAN 


■ 000000 


T10SSR 


044447 


TIMEXP 


016246 


G 


TIMILI- 


■ 000007 


Til 


044606 


TIMSGO 


016274 




TILAST 


• 000001 


T11BFR 


045076 


TINERR 


011473 




T$LOLI' 


■ 000000 


T11BSC 


045070 


TKB 


■ 17 7562 




T$LS>M 


■ 010000 


TUBS! 


045071 


TKS 


« 177560 




V$LTN0' 


• 000013 


TUBS? 


045072 


TMPBFR 


002576 


G 


TINEST- 


■ 000000 


T11DAT 


045070 


TNAM 


017426 




TtNSO • 


' 000000 


T11DTA 


045510 


TPB 


' 177566 




TINS1 ■ 


• 000005 


T11L00 


044642 


TPS 


■ 17 7564 




TINS2 


• 000002 


T11NBA 


045522 


TRANST 


002134 


G 


7*NS3 


■ 000003 


T11NIN 


045576 


TSBA ■ 


• 177776 


G 


TfPCNT- 


• oooooo 


TUPAC 


045060 


TSBAH ■ 


• 177777 


G 


TIPTAB 


• 010103 


T11PK2 


045500 


TSBAL 


• 177776 


G 


TIPTHV' 


• 000001 


TURES 


0*3*36 


TSBAM2 


024530 




TIPTNU 


■ 000001 


HIRST 


015774 


TSBAM3 


024612 




TISAVL- 


• 177777 


Tll.l 


044642 


TSD6 • 


• 177776 


G 


T t SEGL • 


■ 177777 


T2 


023726 


TSDBH - 


■ 177777 


G 


T$SEKO« 


- 010000 


T2L00P 


023764 


TSDBL ■ 


• 177776 


G 


itsizt* 


■ 000005 


T2.1 


023744 


TSFCOD 


006560 




r$SU6N- 


- 000001 


T2.2 


024120 


TSREJ « 


- 000006 




T$TAGL- 


• 177777 


T2.3 


024312 


TSSDEF 


00612 7 




T$TAGN« 


• 010105 


T3 


024 700 


TSSR • 


• 000000 


G 


7;;rtv- 


• 000014 


T3INT 


025733 


TSSRBI 


003400 


G 


T>T l ST. 


* 000013 


T 31. OOP 


024 7 34 


TSSRFO 


005736 




tt sm- 


17 7 7 7 7 


T3NBA 


025630 


TSSRH » 


• 000001 


G 


TtTSTS" 


» 000001 


T3NINT 


026011 
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T3PACK 


025620 


T3SSR 


0256r-5 


T3TSBA 


026071 


T3.1 


024734 


T3.2 


025254 


T4 


026164 


T4BFR 


027274 


T40ATA 


027260 


T4INT 


027745 


T4L0C° 


026220 


T4N8A 


027406 


T4PACK 


027250 


T4REST 


030146 


T4SP 


027270 


T4SSR 


027656 


T4TSBA 


030034 


T4.1 


026220 


T4.2 


026522 


T4,3 


026774 


T42DAT 


027314 


T4200N- 


02 7330 


T42NBA 


027330 


T42REJ 


027461 


T44REJ 


027560 


T5 


030216 


T5BFR 


030742 


T5DATA 


030730 


T5L00P 


030252 


T5NMSG 


031310 


T5NVCK 


031131 


T5PACK 


030720 


T5SSR 


031221 


T5VCK 


030762 


T5VCK2 


031055 


T6 


031426 


T6BFR 


032352 


T6DATA 


032340 


T6INT 


033227 


T6L00P 


031462 


T6NBA 


032406 


T6N1NT 


033136 


T6P.XK 


032330 


T6REST 


033426 


T6SSR 


03304 7 


T6TSBA 


033316 


T6.1 


031462 


T6.2 


031714 


T6.3 


032126 


T62DAT 


0323/2 


T62D0N- 


032406 


T62REJ 


032461 


T63REJ 


032560 


T64REJ 


032653 


T65REJ 


032751 


T / 


033502 


T 7BFR 


035662 


T7BUFR 


035724 
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T7DATA 

T7DTA 

T7INT 

T7L0OP 

T7M6F 

T7N8A 

T7NINT 

T7NNBA 

T 7PACK 

T7PKT 

T7RST 

T7R12 

T7SSR 

T7SSRM 

17.1 

T7.2 

T7.3 

T7.4 

T8 

T8BFR 

T8BF2 

T8DATA 

T8DTA 

T8L0OP 

T8NBA 

T8NINT 

T8PACK 

T8PK2 

T8REST 

T8RT2 

T8SR2 

. AB5. 

ERRORS 



035650 

035712 

036450 

033536 

035744 

036041 

036357 

036123 

035640 

035702 

036566 

036640 

036270 

036200 

033536 

034122 

034514 

035404 

036714 G 

03 '4 72 

037542 

037460 

037530 

036 750 

037562 

040144 

037450 

037520 

040324 

O40366 

040070 

046450 

000000 

DETECTED: 







000 
001 



T8SSR 

T8TSBA 

T8.1 

T8.2 

T82REJ 

T83REJ 

T84REJ 

T9 

T9BFR 

T9BKGN 

T9BLK 

T9CHAR 

T9CKRA 

T9C0NV 

T9CT2 

T90ATA 

T90PR 

T9GETS 

T9HIAD 

T9KT 

T9L0AD 

T9L00P 

T9MSC3 

T9NXNT 

T9NXM 

T9PACK 

T9PAR6 

T9SETG 

T9SURT 

T9TBE 

T9WRTS 



040014 

040222 

036750 

037212 

037622 

037703 

037733 

040432 G 

041712 

042367 

041744 

043546 

043326 G 

042746 

043140 

041700 

042546 

042126 

041732 

041740 

041734 

040466 

042271 

042455 

042637 

041670 

041736 

043504 

04 3436 

042076 

042202 



T9,l 

T9.2 

T9.3 

T91L00 

T92L00 

T93L00 

T94TST 

UAM 

UNITN 

UNREC 

USI 

UAITF 

WC.IFA 

WC.IFE 

WC.IGO 

WC.IRE 

WC.IRW 

UC.IOT 

WC.I1T 

WC.I5R 

WF.IED 

WF.IER 

WF.IHI 

WF.IRE 

WF.1WF 

WF.IWR 

WF.I3R 

WF.I4R 

WRTCHR 

WRTERR 

IJRTMSG 



040466 
041036 
041336 
040610 
041154 
041404 
041742 
00020*. 
002150 
000C06 
004021 
016744 
000200 
000002 
000001 
000010 
000004 
000100 
000C40 
000020 
000010 
000004 
000200 
000040 
000020 
000100 
000002 
000001 
010152 
O05011 
004754 



XFERAS 

XNXM 

XORBFO 

XORFOR 

XSTO 

X5T1 

XST2 

XST3 

XST4 

XSOBOT 

XSOCON 

XSOEOT 

XSOIE 

XSOILA 

XSOILC 

XSOLET 

XSOMOT 

XSONEF 

XSOONL 

XSOPED 

XSORLL 

XSORl.S 

XSOTMK 

XSOVCK 

XSOULE 

XSOWLK 

XS1C0N 

XS2C0N 

XS3C0N 

XXCOMM 

X$ALWA 



016434 
017120 
007246 
00/ 364 
00i>006 
000010 
000012 
000014 
000015 
000002 
015022 
000001 
000040 
000400 
001000 
020000 
000200 
002000 
000100 
000010 
010000 
040000 
100000 
000020 
004000 
000004 
015067 
015134 
015201 
003070 
000000 



XtFALS- 


• 000040 


XtOFFS- 


• 000400 


XITRUE" 


• 000020 


XI. COR- 


■ 020000 


Xl.DLT' 


- 100000 


Xl.MBZ" 


■ 017375 


Xl.RBP' 


■ 000400 


XI. SPA- 


• 040000 


Xl.UNC* 


* 000002 


X2.BUF- 


• 000100 


X2.EXT- 


• 000200 


X2.0PM- 


• 100000 


X2.RCE- 


■ 040000 


X2.REV' 


■ 00007 7 


X2.SPA- 


■ 035400 


X2.UNI- 


■ 000007 


X2.UCF. 


' 002000 


X3.DCK- 


■ 000010 


X3.MBZ- 


■ 000006 


X3.M0E- 


• 177400 


X3.0PI* 


• 000100 


X3.REV- 


■ 000040 


X3.RIB- 


■ 000001 


X3.5PA- 


• 000200 


X3.TRF- 


• 000020 


X4.HSP- 


■ 100000 


X4.M6Z- 


017400 


X4.RCE- 


040000 


X4.TSM- 


020000 


X4.WRC* 


000377 
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USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENiATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 



USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
PROGRAM HEADER 
DEFAULT HARDWARE P-T 



SOFTWARE P -TABLE 
SOFTWARE P TABLE 
GLOBAL EQUATES SECTI 
MEMORt MANAGEMENT DE 
MEMORY MANAGEMENT LE 
TK-25 REGISTER ANO P 
TK-25 REGISTER AND P 
TK-25 REGISTER ANO P 
IK PS REGISTER AND P 
IK •.".» Hi u I Sit U ANO P 
TK-25 REGIS1LR ANO P 
TK 25 REGISTER ANO P 
SPECIAL MACROS ANO 



SPECIAL MACROS ANO 0. 
GLOBAL DATA SECTION . 
TST8LK - TEST DATA . 
GLOBAL ENVIRONMENT S. 
GLOBAL TEXT MESSAGES, 
GLOBAL TEXT MESSAGES. 
GLOBAL ERROR REPORT 
PRITSSR • PRINT TSSR. 
PRITSSR - PRINT TSSR. 
PRITSSR - PRINT TSSR. 
PRIPKT - PRINT THE . 
PRIPKT - PRINT THE . 
PRXBXQR - PRXNT EXPO* 



.81 
.CI 
.01 
.El 
.Fl 
,G1 
.HI 
. II 
,J1 
.Kl 
.1 1 
.Ml 

.m 



. .B2 
. .C2 
. .D2 
. .E2 
. .F2 
. ,G2 
..H2 
. .12 
. . J? 
. .K2 
. .L2 
. ,M2 
..N2 



.B3 
.C3 

.D3 
.E3 

.F3 
.G3 
.H3 
.13 

. J3 
.K3 
.1 1 
. M5 
.N3 



. ,B4 
. .C4 
. .D4 
. .E4 
. .F4 
. .G4 
. .H4 
. .14 
. . J4 
. .K4 
. .L4 
. ,M4 
**N4 



PRIXOR 

PRIEQU 

PRIADD 

SPACE 

SPACE 

SPACE 

WRTCHR 

REWIND 

CKRAM 

RAMER - 

RAMER - 

CKRAM2 

CKMSG 



- PRINT EXPO. . 

- PRINT BIT . . 

- PRINT MEMO, . 

- SPACE RECO, . 
► SPACE RECO. , 

- SPACE RECO.. 

- WRITE CHAR. . 

- POSITION T. . 

- COMPARE RA.. 
READ ANO DIS. . 
READ ANO DIS. , 

- COMPARE RA.. 

- COMPARE WR , , 



CKMSG2 
CKMSG2 
CKMSG2 
CKMSG2 
ADDSSR 

FiFr;xp 

MSGSTAT 

MSGLOOP 

MSGSUB - 

PRAMPKT 

PRMESS 

PRMESS 

PRMESS 



- COMPARE EX 

- COMPARE EX 

- COMPARE EX 

- COMPARE EX 

- PRINT TEST 

- PRINT FIFO 

- PRINT SnT 

- PRINT I JP 
PRINT WHITE 

- PRINT RAM 

- PRINT CONT 

- PRINT CONT 

- PRINT CONT 



PRMSGEXP - PRINT EXP. 
PRMSGEXP - PRINT EXP. 
PRBYTEXP - PRINT ERR. 
PRBYTEXP - PRINT ERR. 
EXPREC - PRINT EXPO 
EXPBREC - PRINT EXPO, 
RAMTAOO - PRINT TEST. 
TIMEXP - PRINT TIME, 
BADSSR - PRINT TSSR . 
GLOBAL SUBROUTINES S. 
CHKAMB - CHECK TSSR. 
ENAINT.DSBINT - ENAB . 
INTR - INTERRUPT . 



WAITF 
CHKTSSR - 
XNXM 

TSTLOOP - 
TSTSETUP - 
TSTENO - 
INCERK 
CKDROP 
KTON.KTOFF 
SETMAP 
FILLMEM - 
CMPMEM - 
CMPWEM - 



WAIT FOR S 

CHECK TSSR 
CHECK FOR 
CHECK ITER 
PRINT TES 
PRINT ERRO 
INCREMENT 
CHECK IF U 
■ EN 
SETUP PAR6 
FILL MEMOR 
COMPARE ME 
COMPARE M&,, 



,B5 
,C5 
.05 
.E5 
.F5 
.G5 
,H5 
.15 
.J5 
,K5 
,L5 
.M5 
.N5 



.86 

,C6 
.06 
,E6 
,F6 
,G6 
,H6 
.16 
,J6 
,K6 
,L6 
,M6 
.N6 



.87 
,C7 
.07 
.E7 
.F7 
,G7 
.H7 
.17 
.J7 
.K7 
,L7 
,M7 
,N7 



. .88 
. .C8 
. .D8 
. .E8 
. .F8 
. .G8 
. ,H8 
. .18 
. .J8 
. .K8 
. .L8 
. .M8 
♦ *N& 



REGSAV 


- SAVE R1-R5. 


, ..B° 


GETPAT 


- GET 8 BIT . 


. ,.C9 


GETSEL 


- ISSUE MENU. 


. . 09 


CHKMAN 


- CHECK MANU. 


. ..t^ 


ENVIRN 


- SETUP FREE. 


. . .F9 


KTINIT 


- SETUP KT11. 


. . .G9 


PROTECTION TABLE 


. ,,H9 


INITIALIZE SECTION . 


. . .19 


INITIALIZE SECTION . 


. . ,J9 


INITIALIZE SECTION , 


. . .K9 


ADD AND 


DROP UNITS S. 


. . ,L9 


ADD AND 


DROP UNITS S, 


. . .M9 


CLEAN 


-UP 


ANO REPORT . 


, .,N9 


CLEAN 


-UP 


ANO REPORT . 


. . .BIO 


TEST 


1: 


BUS RESET T. 


. ..CIO 


TEST 


1; 


BUS RESET T. 


. . .010 


TEST 


1: 


BUS RESET T. 


. . .E10 


TEST 


2: 


RAM TEST 


. ..F10 


TEST 


2: 


RAM TEST 


. ..G10 


TES" 


2? 


RAM TEST 


. . .H10 


TEST 


2: 


RAM TEST 


...110 


TEST 


2: 


RAM TEST 


, . , J10 


TEST 


2: 


RAN TEST 


, . .K10 


TEST 


3: 


CCMMANO RE J. 


. . .LIO 


TEST 


3: 


COMMAND RE J, 


. , ,M10 


TEST 


3: 


COMMAND RE J. 


. . .N10 


TEST 


3; 


COMMANO RE J. 


. . ,B11 


TEST 


3: 


COMMANO RE J. 


...cn 


TEST 


3; 


COMMANO RE J. 


. . .011 


TEST 


3: 


COMMAND RE J. 


. . .Ell 


TESf 


4: 


WRITE CHARA. 


.. .Fll 


TEST 


4; 


WRITE CHARA, 


. . .Gil 


TEST 


4: 


WRITE CHARA. 


. ..Hll 


TEST 


4: 


WRITE CHARA, 


...111 


TEST 


4: 


WRITE CHARA 


. . -iil 


TEST 


4: 


WRITE CHARA. 


- . .Kll 


TEST 


4: 


WRITE CHARA. 


. . .Lll 


TEST 


4: 


WRITE CHARA. 


. . .Mil 


TEST 


5: 


VOLUME CHEC, 


...Nil 


TEST 


5: 


VOLUME CHEC. 


. . .812 


TEST 


5: 


VOLUME CHEC. 


. . .C12 


TEST 


5: 


VOLUME CHEC, 


. . .012 


TEST 


6: 


COMPLETION . 


. ..E12 


TEST 


6: 


COMPLETION . 


. ..F12 


TEST 


6: 


COMPLETION . 


. . .G12 


TEST 


6: 


COMPLETION . 


. . .H12 


TEST 


6: 


COMPLETION . 


. . .112 


TEST 


6: 


COMPLETION . 


, ..J12 


TEST 


6; 


COMPLETION . 


. . .K12 


TEST 


6: 


COMPLETION . 


. , ,L12 


TEST 


7: 


BASIC PACKE. 


. . .M12 


TEST 


7; 


BASIC PAQKE. 


..MXZ 



TEST 

TEST 

TEST 

TEST 

TEST 

TEST 

TEST 

TEST 

TEST 

TEST 

TEST 

TEST 7: 

TEST 8: 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



7: 
7: 
7; 
7: 
7: 
7: 
7: 
7: 
7: 
7: 
7: 



BASIC PACKE 
BASIC PACKE 
BASIC PACKE 
BASTC PACKE 
BASIC PACKE 
BASIC PACKE 
BASIC PACKE 
BASIC PACKE 
BASIC PACKE 
BASIC PACKE 
BASIC PACKE 
BASIC PACKE 
NON-TAPE MO 



8: NON-TAPE MO 

8: NON-TAPE MO 

8: NON-TAPE MO 

8: NON-TAPE MO 

8: NON-TAPE MO 

9 : DMA MEMORY 

9: SUBTEST 1: G 

9: SUBTEST 1: G 

9: SUBTEST 1: G 

9: SUBTEST 2: h 

9: SUBTEST 2; M 

9: SUBTEST 3: C 

9: SUBTEST 3; C, 



9: SUBTEST 3: C 

9; SUBTEST 3: C 

9: SUBTEST 3: C 

9; SUBTEST \x C 

9r SUBTEST 3; C 

9: SUBTEST 3: C 

9; SUBTEST 3; C 

9: SUBTEST 3; C 

10: INITIALIZE 

10: INITIALIZE 

10: INITIALIZE 

10: INITIALIZE 

10: INITIALIZE 



. .813 
..C13 

..D13 
..E13 
..F13 
,.G13 
..H13 
,.113 
. .J13 
,,»<13 
..L13 
. .M13 
.,N13 



, .014 
..C14 
. .014 
..E14 
..F14 
. .G14 
..H14 
.,114 
. .J14 
..K14 
..L14 
..M14 
..N14 



TEST 10: INITIALIZE 



TEST 11 

TEST U 
TEST 11 



BASIC WRITE 
BASIC WRITE 
BASIC W^ITE 



HARDWARE PARAMETER 
SOFTWAPE PARAMETER 
PATCH AREA 
SYMBOL TABLE 
SYMBOL TABLE 
SYMBOL TABLE 
"<MBQL TABLE 



,.B15 
, .CIS 
. .015 
,.E15 
..F15 
,,G15 
. .HIS 
. .115 
. .J15 
. .K15 
. .L15 
,.M15 
..N15 



,B16 

.C16 

,E16 
.Fib 
.G16 
,H16 
.116 
. J16 
.Mb 
*.L]b 



